A106212 Fourth root of theta series of lattice {D_12}^{+} (cf. A004533).

1, 0, 66, 512, -4548, -95232, 235896, 19184640, 71390982, -3574929408, -38686277880, 549355393536, 12560156358776, -44726582455296, -3304393480144896, -11697847949288448, 730893806097007116, 7947401735635359744, -128019618062747473590, -2899743155552604891648

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.

Mathematica

terms = 20; s = ((EllipticTheta[2, 0, q]^12 + EllipticTheta[3, 0, q]^12 + EllipticTheta[4, 0, q]^12)/2)^(1/4) + O[q]^terms; CoefficientList[s, q] (* Jean-François Alcover, Jul 08 2017 *)

Crossrefs

Sequence in context: A223444 A084027 A063249 * A155022 A202639 A175260

Adjacent sequences: A106209 A106210 A106211 * A106213 A106214 A106215

Keyword

sign

Author

N. J. A. Sloane and Nadia Heninger, Jul 13 2005

Status

approved