|
|
A208192
|
|
Number of distinct 7-colored necklaces with n beads per color.
|
|
2
|
|
|
1, 720, 48648960, 8690922240480, 2374127830286012160, 823940558733748910598720, 333504309246734399617946903040, 150277870737901828652705825755721760, 73288704867601350013562616043249358012160, 37980016035292737119901943600678905519608160480
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{d|n} phi(n/d)*(7*d)!/(d!^7*7*n) if n>0 and a(0) = 1.
|
|
EXAMPLE
|
a(0) = 1: the empty necklace.
a(1) = 720: {0123456, 0123465, ..., 0654321}.
|
|
MAPLE
|
with(numtheory):
a:= n-> `if`(n=0, 1, add(phi(n/d) *(7*d)!/(d!^7 *7*n), d=divisors(n))):
seq(a(n), n=0..12);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|