|
%I #38 Mar 12 2021 22:24:46
%S 1,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
%T 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0
%N Expansion of f(x^3, x^7) in powers of x where f() is Ramanujan's two-variable theta function.
%C Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
%H G. C. Greubel, <a href="/A205633/b205633.txt">Table of n, a(n) for n = 0..1000</a>
%H Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
%H S. Cooper and M. D. Hirschhorn, <a href="http://dx.doi.org/10.1016/S0012-365X(03)00079-7">Results of Hurwitz type for three squares.</a> Discrete Math. 274 (2004), no. 1-3, 9-24. See D(q).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RamanujanThetaFunctions.html">Ramanujan Theta Functions</a>
%F Euler transform of period 20 sequence [ 0, 0, 1, 0, 0, -1, 1, 0, 0, -1, 0, 0, 1, -1, 0, 0, 1, 0, 0, -1, ...]. - _Michael Somos_, Sep 22 2012
%F Characteristic function of A036666: a(n) = 1 if and only if n is in A036666.
%F G.f.: Sum_{k in Z} x^(5*k^2 + 2*k).
%F a(3*n + 2) = a(4*n + 1) = a(4*n + 2) = 0. a(4*n + 3) = A205988(n). - _Michael Somos_, Sep 22 2012
%e 1 + x^3 + x^7 + x^16 + x^24 + x^39 + x^51 + x^72 + x^88 + x^115 + x^135 + ...
%e q + q^16 + q^36 + q^81 + q^121 + q^196 + q^256 + q^361 + q^441 + q^576 + ...
%t A205633[n_] := SeriesCoefficient[QPochhammer[-q^3, q^10]* QPochhammer[-q^7, q^10]*QPochhammer[q^10, q^10], {q, 0, n}]; Table[A205633[n], {n,0,50}] (* _G. C. Greubel_, Jun 16 2017 *)
%o (PARI) {a(n) = issquare(5*n + 1)} /* _Michael Somos_, Sep 22 2012 */
%Y Cf. A036666, A205988.
%K nonn
%O 0,1
%A _N. J. A. Sloane_, Feb 02 2012
|
