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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107657 Coefficients of 12th root of theta series of lattice in A004046. 3
1, 0, 0, 2184, 44226, 530712, -22289904, -1041080040, -23414482728, 86664734520, 22704271546320, 824932708688088, 10338270616438674, -363177176817506688, -24534229526034608016, -614775613733783853624, -526997882017733986314, 591470477348411755418688, 24257417213770154760619728, 384176112414487265101313448 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

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; QP = QPochhammer; Q9 = (1 + (9*q*QP[q^9]^3)/QP[q]^3); s = (1/(3^(1/4)*QP[q^3]))*QP[q]^3*(-8 + 16*Q9^3 + 64*Q9^6 - 72*Q9^9 + 27*Q9^12)^(1/12) + O[q]^terms; CoefficientList[s, q] (* Jean-François Alcover, Jul 06 2017, after Michael Somos *)

CROSSREFS

Cf. A004046.

Sequence in context: A090318 A130171 A194585 * A002521 A059757 A068304

Adjacent sequences:  A107654 A107655 A107656 * A107658 A107659 A107660

KEYWORD

sign

AUTHOR

N. J. A. Sloane and Michael Somos, Jun 07 2005

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 21 01:26 EDT 2019. Contains 323429 sequences. (Running on oeis4.)