login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A027671 Number of necklaces with n beads of 3 colors, allowing turning over. 14
1, 3, 6, 10, 21, 39, 92, 198, 498, 1219, 3210, 8418, 22913, 62415, 173088, 481598, 1351983, 3808083, 10781954, 30615354, 87230157, 249144711, 713387076, 2046856566, 5884491500, 16946569371, 48883660146, 141217160458, 408519019449, 1183289542815 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

REFERENCES

J. L. Fisher, Application-Oriented Algebra (1977) ISBN 0-7002-2504-8, circa p 215.

M. Gardner "New Mathematical Diversions from Scientific American" (Simon and Schuster, New York, 1966), pages 245-246.

LINKS

T. D. Noe, Table of n, a(n) for n=0..200

E. N. Gilbert and J. Riordan, Symmetry types of periodic sequences, Illinois J. Math., 5 (1961), 657-665.

F. Ruskey, Necklaces, Lyndon words, De Bruijn sequences, etc.

R. M. Thompson and R. T. Downs, Systematic generation of all nonequivalent close-packed stacking sequences of length N using group theory, Acta Cryst. B57 (2001), 766-771; B58 (2002), 153.

Eric Weisstein's World of Mathematics, Necklace.

Index entries for sequences related to bracelets

FORMULA

G.f.: (1 - Sum_{n>=1} phi(n)*log(1 - 3*x^n)/n + (1+3*x+3*x^2)/(1-3*x^2))/2. - Herbert Kociemba, Nov 02 2016

MATHEMATICA

Needs["Combinatorica`"];  Join[{1}, Table[CycleIndex[DihedralGroup[n], s]/.Table[s[i]->3, {i, 1, n}], {n, 1, 30}]] (* Geoffrey Critzer, Sep 29 2012 *)

Needs["Combinatorica`"]; Join[{1}, Table[NumberOfNecklaces[n, 3, Dihedral], {n, 30}]] (* T. D. Noe, Oct 02 2012 *)

mx=40; CoefficientList[Series[(1-Sum[ EulerPhi[n]*Log[1-3*x^n]/n, {n, mx}]+(1+3 x+3 x^2)/(1-3 x^2))/2, {x, 0, mx}], x] (* Herbert Kociemba, Nov 02 2016 *)

t[n_, k_] := (For[t1 = 0; d = 1, d <= n, d++, If[Mod[n, d] == 0, t1 = t1 + EulerPhi[d]*k^(n/d)]]; If[EvenQ[n], (t1 + (n/2)*(1+k)*k^(n/2))/(2*n), (t1 + n*k^((n+1)/2))/(2*n)]); a[0] = 1; a[n_] := t[n, 3]; Array[a, 30, 0] (* Jean-Fran├žois Alcover, Nov 02 2017, after Maple code for A081720 *)

CROSSREFS

Cf. A056353, A114438.

Cf. a(n) = A081720(n,3), n>=3. [Wolfdieter Lang, Jun 03 2012]

Sequence in context: A299017 A136569 A061883 * A167617 A274018 A068149

Adjacent sequences:  A027668 A027669 A027670 * A027672 A027673 A027674

KEYWORD

nonn,easy,nice

AUTHOR

Alford Arnold

EXTENSIONS

More terms from Christian G. Bower

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 17 22:32 EST 2018. Contains 299297 sequences. (Running on oeis4.)