M. Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
M. Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
M. Somos, <a href="http://cis.csuohio.edu/~somosA010815/multiqa010815pdftxt">Introduction to Ramanujan theta functions</a>
editing
approved
a(n) ~ (-1)^n * exp(Pi*sqrt(2*n/3)) / (2^(9/4) * 3^(3/4) * n^(3/4)). - Vaclav Kotesovec, Nov 16 2017
approved
editing
proposed
approved
editing
proposed
G. C. Greubel, <a href="/A139135/b139135.txt">Table of n, a(n) for n = 0..1000</a>
A139135[n_] := SeriesCoefficient[(QPochhammer[q]* QPochhammer[q^3]*QPochhammer[q^4]*QPochhammer[q^12])/(QPochhammer[q^2]^3 *QPochhammer[q^6]), {q, 0, n}]; Table[A139135[n], {n, 0, 50}] (* G. C. Greubel, Oct 05 2017 *)
approved
editing
editing
approved
G.f. is a period 1 Fourier series which satisfies f(-1 / (108 t)) = 3^(-1/2) g(t) where q = exp(2 pi Pi i t) and g() is g.f. for A139136.
approved
editing