A097920 G.f.: (1+x^10)/((1-x)*(1-x^3)*(1-x^5)).

1, 1, 1, 2, 2, 3, 4, 4, 5, 6, 8, 9, 10, 12, 13, 16, 18, 19, 22, 24, 27, 30, 32, 35, 38, 42, 45, 48, 52, 55, 60, 64, 67, 72, 76, 81, 86, 90, 95, 100, 106, 111, 116, 122, 127, 134, 140, 145, 152, 158, 165, 172, 178, 185, 192, 200, 207, 214, 222, 229, 238, 246, 253, 262, 270, 279, 288

Offset

0,4

References

G. van der Geer, Hilbert Modular Surfaces, Springer-Verlag, 1988; p. 188.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for Molien series

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

Mathematica

CoefficientList[Series[(1+x^10)/((1-x)(1-x^3)(1-x^5)), {x, 0, 70}], x] (* Harvey P. Dale, Jul 23 2011 *)

Prog

(PARI) x='x+O('x^30); Vec((1+x^10)/((1-x)(1-x^3)(1-x^5))) \\ G. C. Greubel, Dec 20 2017
(Magma) I:=[1, 2, 2, 3, 4, 4, 5, 6, 8]; [1, 1] cat [n le 9 select I[n] else Self(n-1) + Self(n-3) - Self(n-4) + Self(n-5) - Self(n-6) - Self(n-8) + Self(n-9): n in [1..30]]; // G. C. Greubel, Dec 20 2017

Crossrefs

Sequence in context: A337601 A340283 A324744 * A029042 A320470 A320382

Adjacent sequences: A097917 A097918 A097919 * A097921 A097922 A097923

Keyword

nonn,easy

Author

N. J. A. Sloane, Sep 05 2004

Status

approved