|
|
A052823
|
|
A simple grammar: cycles of pairs of sequences.
|
|
11
|
|
|
0, 0, 1, 2, 4, 6, 12, 18, 34, 58, 106, 186, 350, 630, 1180, 2190, 4114, 7710, 14600, 27594, 52486, 99878, 190744, 364722, 699250, 1342182, 2581426, 4971066, 9587578, 18512790, 35792566, 69273666, 134219794, 260301174, 505294126, 981706830, 1908881898
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Number of n-bead necklaces using exactly two different colors. - Robert A. Russell, Sep 26 2018
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{j>=1} phi(j)/j*log(-(x^j-1)^2/(2*x^j-1)).
a(n) = (k!/n) Sum_{d|n} phi(d) S2(n/d,k), where k=2 is the number of colors and S2 is the Stirling subset number A008277. - Robert A. Russell, Sep 26 2018
|
|
MAPLE
|
spec := [S, {B=Sequence(Z, 1 <= card), C=Prod(B, B), S= Cycle(C)}, unlabeled]: seq(combstruct[count](spec, size=n), n=0..20);
|
|
MATHEMATICA
|
k=2; Prepend[Table[k!DivisorSum[n, EulerPhi[#]StirlingS2[n/#, k]&]/n, {n, 1, 30}], 0] (* Robert A. Russell, Sep 26 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
encyclopedia(AT)pommard.inria.fr, Jan 25 2000
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|