login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A004530 Expansion of (theta_2(0, x) + theta_3(0, x) + theta_4(0, x)) / 2 in powers of x^(1/4). 1
1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,17

REFERENCES

J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.

LINKS

Antti Karttunen, Table of n, a(n) for n = 0..65537

FORMULA

G.f.: (theta_2(0, x^4) + theta_3(0, x^4) + theta_4(0, x^4)) / 2.

EXAMPLE

G.f. = 1 + x + x^9 + 2*x^16 + x^25 + x^49 + 2*x^64 + x^81 + x^121 + 2*x^144 + x^169 + ...

MATHEMATICA

a[ n_] := SeriesCoefficient[ (EllipticTheta[ 2, 0, x^4] + EllipticTheta[ 3, 0, x^4] + EllipticTheta[4, 0, x^4]) / 2, {x, 0, n}]; (* Michael Somos, Aug 28 2017 *)

a[ n_] := With[{m = Sqrt@n}, Which[ n <= 0, Boole[n == 0], IntegerQ[m] && (Mod[m, 4] != 2), 2 - Mod[m, 2], True, 0]]; (* Michael Somos, Aug 28 2017 *)

PROG

(PARI) {a(n) = my(m); if( n<=0, n==0, issquare(n, &m) && (m%4!=2), 2-m%2, 0)}; /* Michael Somos, Aug 28 2017 */

(PARI) {a(n) = my(A); if(n<0, 0, A = x * O(x^n); polcoeff( x * eta(x^16 + A)^2 / eta(x^8 + A) + (eta(x^8 + A)^5 / (eta(x^4 + A) * eta(x^16 + A))^2 + eta(x^4 + A)^2 / eta(x^8 + A)) / 2, n))}; /* Michael Somos, Aug 28 2017 */

CROSSREFS

Sequence in context: A069843 A069849 A138045 * A245196 A259362 A303553

Adjacent sequences:  A004527 A004528 A004529 * A004531 A004532 A004533

KEYWORD

nonn

AUTHOR

N. J. A. Sloane

EXTENSIONS

Data section extended up to a(121) by Antti Karttunen, Aug 28 2017

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 12 12:43 EST 2018. Contains 317109 sequences. (Running on oeis4.)