[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A001940
Absolute value of coefficients of an elliptic function.
(Formerly M4173 N1737)
6
1, 6, 27, 98, 309, 882, 2330, 5784, 13644, 30826, 67107, 141444, 289746, 578646, 1129527, 2159774, 4052721, 7474806, 13569463, 24274716, 42838245, 74644794, 128533884, 218881098, 368859591, 615513678, 1017596115, 1667593666, 2710062756, 4369417452
OFFSET
0,2
REFERENCES
A. Cayley, A memoir on the transformation of elliptic functions, Collected Mathematical Papers. Vols. 1-13, Cambridge Univ. Press, London, 1889-1897, Vol. 9, p. 128.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
A. Cayley, A memoir on the transformation of elliptic functions, Philosophical Transactions of the Royal Society of London (1874): 397-456; Collected Mathematical Papers. Vols. 1-13, Cambridge Univ. Press, London, 1889-1897, included in Vol. 9. [Annotated scan of pages 126-129]
FORMULA
G.f.: Product ( 1 - x^k )^(-c(k)), c(k) = 6, 6, 6, 0, 6, 6, 6, 0, ....
a(n) ~ 3^(1/4) * exp(sqrt(3*n)*Pi) / (128*sqrt(2)*n^(3/4)). - Vaclav Kotesovec, Nov 15 2017
G.f.: Product_{k>=1} ((1 + x^(2*k))/(1 - x^(2*k-1)))^6. - Ilya Gutkovskiy, Dec 04 2017
MATHEMATICA
nn = 4*10; b = Flatten[Table[{6, 6, 6, 0}, {nn/4}]]; CoefficientList[x*Series[Product[1/(1 - x^m)^b[[m]], {m, nn}], {x, 0, nn}], x] (* T. D. Noe, Aug 17 2012 *)
nmax = 40; CoefficientList[Series[Product[((1 - x^(4*k)) / (1 - x^k))^6, {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Nov 15 2017 *)
KEYWORD
nonn,easy
EXTENSIONS
Extended and corrected by Simon Plouffe
STATUS
approved