|
|
|
|
#18 by Charles R Greathouse IV at Fri Mar 12 22:24:43 EST 2021
|
| LINKS
|
M. Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
|
|
|
Discussion
|
Fri Mar 12
| 22:24
| OEIS Server: https://oeis.org/edit/global/2897
|
|
|
|
#17 by N. J. A. Sloane at Wed Nov 13 21:58:47 EST 2019
|
| LINKS
|
M. Somos, <a href="http://somos.crg4.com="/A010815/multiqa010815.htmltxt">Introduction to Ramanujan theta functions</a>
|
|
|
Discussion
|
Wed Nov 13
| 21:58
| OEIS Server: https://oeis.org/edit/global/2832
|
|
|
|
#16 by Susanna Cuyler at Thu May 10 23:06:35 EDT 2018
|
|
|
|
#15 by Michel Marcus at Thu May 10 00:59:02 EDT 2018
|
|
|
|
#14 by Michel Marcus at Thu May 10 00:58:59 EDT 2018
|
| LINKS
|
M. Somos, <a href="http://cissomos.csuohiocrg4.edu/~somoscom/multiq.pdfhtml">Introduction to Ramanujan theta functions</a>
|
| STATUS
|
proposed
editing
|
|
|
|
#13 by G. C. Greubel at Thu May 10 00:52:29 EDT 2018
|
|
|
|
#12 by G. C. Greubel at Thu May 10 00:51:49 EDT 2018
|
| LINKS
|
G. C. Greubel, <a href="/A096920/b096920.txt">Table of n, a(n) for n = 0..1000</a>
|
| MATHEMATICA
|
eta[q_]:= q^(1/24)*QPochhammer[q]; a:= CoefficientList[Series[q^(-1/12) *eta[q^2]^4/(eta[q]^2*eta[q^4]), {q, 0, 50}], q]; Table[a[[n]], {n, 0, 50}] (* G. C. Greubel, May 09 2018 *)
|
| STATUS
|
approved
editing
|
|
|
|
#11 by Vaclav Kotesovec at Mon Sep 07 11:07:28 EDT 2015
|
|
|
|
#10 by Vaclav Kotesovec at Mon Sep 07 11:04:18 EDT 2015
|
| FORMULA
|
a(n) ~ exp(Pi*sqrt(n/6)) / (2*sqrt(2*n)). - Vaclav Kotesovec, Sep 07 2015
|
|
|
|
#9 by Vaclav Kotesovec at Mon Sep 07 11:01:38 EDT 2015
|
| MATHEMATICA
|
nmax = 40; CoefficientList[Series[Product[(1 - x^(4*k)) * (1 + x^(2*k-1))^2, {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Sep 07 2015 *)
|
| STATUS
|
approved
editing
|
|
|
|