login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A001483 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^5 in powers of x.
(Formerly M3791 N1546)
4
1, -5, 10, -10, 0, 19, -35, 40, -25, -10, 45, -75, 80, -60, 15, 45, -85, 115, -115, 90, -21, -35, 95, -130, 135, -135, 70, -35, -65, 105, -146, 120, -150, 90, -65, -25, 90, -115, 150, -125, 130, -45, 80, 35, -5, 160, -110, 170, -85, 95, 25, 50, 0, -60, 95, -116, 120, -135 (list; graph; refs; listen; history; text; internal format)
OFFSET

5,2

REFERENCES

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

LINKS

Alois P. Heinz, Table of n, a(n) for n = 5..10000

H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.

H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)

MAPLE

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]

      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)

    end:

b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),

      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))

    end:

a:= n-> b(n, 5):

seq(a(n), n=5..62);  # Alois P. Heinz, Feb 07 2021

MATHEMATICA

nmax = 62; CoefficientList[Series[(Product[(1 - (-x)^j), {j, 1, nmax}] - 1)^5, {x, 0, nmax}], x] // Drop[#, 5] & (* Ilya Gutkovskiy, Feb 07 2021 *)

CROSSREFS

Sequence in context: A144136 A343852 A198286 * A173679 A230208 A168228

Adjacent sequences:  A001480 A001481 A001482 * A001484 A001485 A001486

KEYWORD

sign

AUTHOR

N. J. A. Sloane.

EXTENSIONS

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 14 19:53 EDT 2021. Contains 343903 sequences. (Running on oeis4.)