|
|
A261504
|
|
Number of necklaces with n white beads and 10*n black beads.
|
|
2
|
|
|
1, 1, 11, 166, 3091, 63251, 1376738, 31231278, 730421043, 17485161178, 426342182761, 10551652603526, 264383070217234, 6693356751004275, 170957058318902538, 4399826606699783666, 113989308154754290611, 2970465160237643057033, 77808659386282667142686
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
In general, for k>=1 is column k of A261494 asymptotic to (k+1)^((k+1)*n-1/2) / (sqrt(2*Pi) * k^(k*n+1/2) * n^(3/2)). - Vaclav Kotesovec, Aug 22 2015
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Necklace
|
|
FORMULA
|
a(n) = 1/(11*n) * Sum_{d|n} C(11*n/d,n/d) * A000010(d) for n>0, a(0) = 1.
a(n) ~ 11^(11*n-1/2) / (sqrt(2*Pi) * 10^(10*n+1/2) * n^(3/2)). - Vaclav Kotesovec, Aug 22 2015
|
|
MAPLE
|
with(numtheory):
a:= n-> `if`(n=0, 1, add(binomial(11*n/d, n/d)
*phi(d), d=divisors(n))/(11*n)):
seq(a(n), n=0..25);
|
|
MATHEMATICA
|
a[n_] := If[n == 0, 1, DivisorSum[n, Binomial[11*n/#, n/#]*EulerPhi[#]&]/ (11*n)];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|