>>675
ひたすら列挙して数えたら（数えさせれたら）

> head(necklaces)
No 配列
<int> <char>
1: 1 黒黒黒黒黒黒黒白白白白白赤赤赤赤青青
2: 2 黒黒黒黒黒黒黒白白白白白赤赤赤青赤青
3: 3 黒黒黒黒黒黒黒白白白白白赤赤赤青青赤
4: 4 黒黒黒黒黒黒黒白白白白白赤赤青赤赤青
5: 5 黒黒黒黒黒黒黒白白白白白赤赤青赤青赤
6: 6 黒黒黒黒黒黒黒白白白白白赤赤青青赤赤
> nrow(necklaces)
[1] 6126960
> tail(necklaces)
No 配列
<int> <char>
1: 6126955 黒白白白白白黒赤黒赤黒青黒赤黒赤黒青
2: 6126956 黒白白白白白黒赤黒赤黒青黒赤黒青黒赤
3: 6126957 黒白白白白白黒赤黒赤黒青黒青黒赤黒赤
4: 6126958 黒白白白白白黒赤黒青黒赤黒赤黒赤黒青
5: 6126959 黒白白白白白黒赤黒青黒赤黒赤黒青黒赤
6: 6126960 黒白白白白白黒青黒赤黒赤黒赤黒赤黒青
> nrow(necklaces)
[1] 6126960