|
| |
|
|
A130293
|
|
Number of necklaces of n beads with up to n colors, with cyclic permutation {1,..,n} of the colors taken to be equivalent.
|
|
0
| |
|
|
1, 2, 5, 20, 129, 1316, 16813, 262284, 4783029, 100002024, 2357947701, 61917406672, 1792160394049, 56693913450992, 1946195068379933, 72057594071484456, 2862423051509815809, 121439531097819321972
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| For prime n, the sequence seems to be n^(n-2)+n-1.
|
|
|
FORMULA
| (1/n^2)*Sum_{d|n} d*phi(d)*n^(n/d) from Vladeta Jovovic (vladeta(AT)EUnet.yu), Aug 14 2007, Aug 24 2007
|
|
|
EXAMPLE
| The 5 necklaces for n=3 are: 000, 001, 002, 012 and 021.
|
|
|
MATHEMATICA
| tor8={}; ru8=Thread[ i_ ->Table[ Mod[i+k, 8], {k, 8}]]; Do[idi=IntegerDigits[k, 8, 8]; try= Function[w, First[temp=Union[Join @@(Table[RotateRight[w, k], {k, 8}]/.#&)/@ ru8]]][idi]; If[idi===try, tor8=Flatten[ {tor8, {{Length[temp], idi}}}, 1] ], {k, 0, 8^8-1}];
|
|
|
CROSSREFS
| Cf. A002075-A002076.
Cf. A056665.
Sequence in context: A012321 A012519 A076795 * A156073 A006366 A012317
Adjacent sequences: A130290 A130291 A130292 * A130294 A130295 A130296
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Wouter Meeussen (wouter.meeussen(AT)pandora.be), Aug 06 2007, Aug 14 2007
|
| |
|
|
