|
%I #4 Jan 25 2015 10:18:43
%S 362880,18144000,515592000,10977120000,195113318400,3063348288000,
%T 43943631732000,588790762560000,7481812222684800,91158709273632000,
%U 1073686615986821760,12301136459932320000,137753173599205449600,1513588462073525376000,16368017165881385004000
%N Number of primitive (=aperiodic) n-bead necklaces with colored beads of exactly 10 different colors.
%H Alois P. Heinz, <a href="/A254082/b254082.txt">Table of n, a(n) for n = 10..1000</a>
%p with(numtheory):
%p b:= proc(n, k) option remember; `if`(n=0, 1,
%p add(mobius(n/d)*k^d, d=divisors(n))/n)
%p end:
%p a:= n-> add(b(n, 10-j)*binomial(10, j)*(-1)^j, j=0..10):
%p seq(a(n), n=10..30);
%Y Column k=10 of A254040.
%K nonn
%O 10,1
%A _Alois P. Heinz_, Jan 25 2015
|
