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!)
A032803 Expansion of Sum_{i>=0} q^i*theta_3^i. 4
1, 1, 3, 5, 11, 23, 47, 99, 203, 423, 877, 1819, 3777, 7831, 16253, 33715, 69953, 145137, 301113, 624745, 1296165, 2689221, 5579425, 11575849, 24016893, 49828757, 103381739, 214490133, 445011179, 923282285, 1915570171, 3974309213, 8245656195, 17107588781 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

FORMULA

From Vaclav Kotesovec, Jun 26 2020: (Start)

G.f.: 1/(1 - x*EllipticTheta(3,x)).

a(n) ~ c / r^n, where r = 0.48198821952392600540358080089338068467918852426... is the root of the equation r*EllipticTheta(3,r) = 1 and c = 1 / (1 + r^2 * EllipticTheta'(3,r)) = 0.59345908175794984247602713305661895068944878811545062...

(End)

MATHEMATICA

nmax = 50; CoefficientList[Series[Sum[x^k*EllipticTheta[3, x]^k, {k, 0, nmax}], {x, 0, nmax}], x] (* or *) nmax = 50; CoefficientList[Series[1/(1 - x*EllipticTheta[3, x]), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 26 2020 *)

CROSSREFS

Sequence in context: A106086 A072828 A290114 * A335883 A030494 A246491

Adjacent sequences:  A032800 A032801 A032802 * A032804 A032805 A032806

KEYWORD

nonn

AUTHOR

N. J. A. Sloane.

EXTENSIONS

More terms from Sean A. Irvine, Jun 26 2020

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 October 16 12:01 EDT 2021. Contains 348041 sequences. (Running on oeis4.)