A307897 Duplicate of A008651.

1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 2, 3, 3, 2, 3, 2, 3, 3, 3, 2, 3, 3, 3, 3, 3, 2, 4, 3, 3, 3, 3, 3, 4, 3, 3, 3, 4

Offset

0,31

Comments

Meyer's generating function h(t,G) generates the sequence of the dimensions of the spaces of G-invariant harmonic polynomials of each degree, where G is a point group on three-dimensional Euclidean space. For G=I, the icosahedral rotation group, the generating function gives rise to this sequence. See Table 1, p. 143.

Links

Table of n, a(n) for n=0..100.

Burnett Meyer, On the symmetries of spherical harmonics, Canadian Journal of Mathematics 6 (1954): 135-157.

Formula

G.f.: (1 + t^15) / ( (1 - t^10) * (1 - t^6) ).

a(n) = -a(n-1) + a(n-3) + a(n-4) + a(n-5) + a(n-6) - a(n-8) - a(n-9) for n>8. - Colin Barker, May 04 2019

Mathematica

CoefficientList[ Series[(1 - t^10)^(-1) (1 - t^6)^(-1) (1 + t^15), {t, 0, 100}], t]

Prog

(PARI) Vec((1 + x - x^3 - x^4 - x^5 + x^7 + x^8) / ((1 - x)^2*(1 + x)*(1 + x + x^2)*(1 + x + x^2 + x^3 + x^4)) + O(x^60)) \\ Colin Barker, May 04 2019

Crossrefs

Sequence in context: A235748 A204697 A208576 * A008651 A049107 A046597

Adjacent sequences: A307894 A307895 A307896 * A307898 A307899 A307900

Keyword

dead

Author

William Lionheart, May 04 2019

Status

approved