Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)

Revision History for A001482

(Underlined text is an addition; strikethrough text is a deletion.)

Showing entries 1-10 | older changes
A001482 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^4 in powers of x.
(history; published version)
#30 by Peter Luschny at Mon Sep 04 06:07:55 EDT 2023
STATUS

reviewed

approved

#29 by Michel Marcus at Mon Sep 04 05:59:01 EDT 2023
STATUS

proposed

reviewed

#28 by Joerg Arndt at Mon Sep 04 04:35:16 EDT 2023
STATUS

editing

proposed

#27 by Joerg Arndt at Mon Sep 04 04:34:57 EDT 2023
PROG

(PARI) my(N=70, x='x+O('x^N)); Vec((eta(-x)-1)^4) \\ Joerg Arndt, Sep 04 2023

STATUS

proposed

editing

#26 by G. C. Greubel at Mon Sep 04 02:00:05 EDT 2023
STATUS

editing

proposed

#25 by G. C. Greubel at Mon Sep 04 01:59:59 EDT 2023
PROG

(SageMath)

m=100

def f4(x): return (1 - product( (1+x^j)*(1-x^(2*j))/(1+x^(2*j)) for j in range(1, m+2) ) )^4

def A001482_list(prec):

P.<x> = PowerSeriesRing(QQ, prec)

return P( f4(x) ).list()

a=A001482_list(m); a[4:] # G. C. Greubel, Sep 04 2023

CROSSREFS

Cf. A001483 - A001488, A047638 - A047649, A047654, A047655, A341243.

#24 by G. C. Greubel at Mon Sep 04 01:00:17 EDT 2023
MATHEMATICA

Drop[CoefficientList[Series[(1 -QPochhammer[-x])^4, {x, 0, 100}], x], 4] (* G. C. Greubel, Sep 04 2023 *)

PROG

(Magma)

m:=102;

R<x>:=PowerSeriesRing(Integers(), m);

Coefficients(R!( (1 - (&*[1-(-x)^j: j in [1..m+2]]))^4 )); // G. C. Greubel, Sep 04 2023

STATUS

approved

editing

#23 by Jon E. Schoenfield at Tue Feb 01 23:37:24 EST 2022
STATUS

editing

approved

#22 by Jon E. Schoenfield at Tue Feb 01 23:37:22 EST 2022
AUTHOR

_N. J. A. Sloane_._

STATUS

approved

editing

#21 by Alois P. Heinz at Sun Feb 07 20:43:38 EST 2021
STATUS

editing

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 27 22:28 EDT 2024. Contains 375471 sequences. (Running on oeis4.)