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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A008646 Molien series for cyclic group of order 5. 11
1, 1, 3, 7, 14, 26, 42, 66, 99, 143, 201, 273, 364, 476, 612, 776, 969, 1197, 1463, 1771, 2126, 2530, 2990, 3510, 4095, 4751, 5481, 6293, 7192, 8184, 9276, 10472, 11781, 13209, 14763, 16451, 18278, 20254, 22386, 24682, 27151, 29799, 32637, 35673 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

a(n) is the number of necklaces with 5 black beads and n white beads.

The g.f. is Z(C_5,x), the 5-variate cycle index polynomial for the cyclic group C_5, with substitution x[i]->1/(1-x^i), i=1,...,5. Therefore by Polya enumeration a(n) is the number of cyclically inequivalent 5-necklaces whose 5 beads are labeled with nonnegative integers such that the sum of labels is n, for n=0,1,2,... See A102190 for Z(C_5,x). - Wolfdieter Lang, Feb 15 2005.

REFERENCES

B. Sturmfels, Algorithms in Invariant Theory, Springer, '93, p. 65.

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Index entries for sequences related to groups

Index entries for Molien series

Index entries for sequences related to necklaces

Index entries for linear recurrences with constant coefficients, signature (4,-6,4,-1,1,-4,6,-4,1).

FORMULA

G.f.: (1+x^2+3*x^3+4*x^4+6*x^5+4*x^6+3*x^7+x^8+x^10)/(1-x)/(1-x^2)/(1-x^3)/(1- x^4)/(1-x^5).

a(-5-n) = a(n) for all integers.

a(n) = ceiling(C(n, 5)/n), with a different offset.

G.f.: (1-3*x+5*x^2-3*x^3+x^4)/((1-x)^4*(1-x^5)). - Michael Somos, Dec 04, 2001

a(n) = (n^4+10*n^3+35*n^2+50*n+24*(3-2*(-1)^(2^(n-5*floor(n/5)))))/120. - Luce ETIENNE, Oct 31 2015

G.f.: (4/(1 - x^5) + 1/(1 - x)^5)/5. - Herbert Kociemba, Oct 15 2016

MAPLE

(1+x^2+3*x^3+4*x^4+6*x^5+4*x^6+3*x^7+x^8+x^10)/(1-x)/(1-x^2)/(1-x^3)/(1- x^4)/(1-x^5)

seq(ceil(binomial(n, 4)/5), n=4..41); # Zerinvary Lajos, Jan 12 2009

MATHEMATICA

k = 5; Table[Apply[Plus, Map[EulerPhi[ # ]Binomial[n/#, k/# ] &, Divisors[GCD[n, k]]]]/n, {n, k, 30}] (* Robert A. Russell, Sep 27 2004 *)

f[n_]:=Sum[Sum[Sum[k, {r, 0, m}], {m, 0, k}], {k, 0, n}]/3/5; Table[Ceiling[f[n]], {n, 5!}] (* Vladimir Joseph Stephan Orlovsky, Apr 28 2010 *)

CoefficientList[Series[(1 + x^2 + 3 x^3 + 4 x^4 + 6 x^5 + 4 x^6 + 3 x^7 + x^8 + x^10) / (1 - x) / (1 - x^2) / (1 - x^3) / (1 - x^4) / (1 -x^5), {x, 0, 60}], x] (* Vincenzo Librandi, Jun 11 2013 *)

LinearRecurrence[{4, -6, 4, -1, 1, -4, 6, -4, 1}, {1, 1, 3, 7, 14, 26, 42, 66, 99}, 50] (* Harvey P. Dale, Jan 11 2017 *)

PROG

(PARI) a(n)=ceil((n+4)*(n+3)*(n+2)*(n+1)/120)

(MAGMA) [Ceiling((n+4)*(n+3)*(n+2)*(n+1)/120): n in [0..60]]; // Vincenzo Librandi, Jun 11 2013

(PARI) Vec((1-3*x+5*x^2-3*x^3+x^4)/((1-x)^4*(1-x^5)) + O(x^100)) \\ Altug Alkan, Oct 31 2015

CROSSREFS

Cf. A000031, A047996.

Sequence in context: A193911 A206417 A207381 * A036830 A014153 A001924

Adjacent sequences:  A008643 A008644 A008645 * A008647 A008648 A008649

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane.

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 July 21 20:57 EDT 2017. Contains 289648 sequences.