%I M0005 #34 May 17 2023 11:29:58
%S 0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%T 0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U 6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,0,0,0
%N Theta series of diamond with respect to midpoint of edge.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Andy Huchala, <a href="/A005926/b005926.txt">Table of n, a(n) for n = 0..1600</a> (first 387 terms from Herman Jamke)
%H N. J. A. Sloane, <a href="http://dx.doi.org/10.1063/1.527472">Theta series and magic numbers for diamond and certain ionic crystal structures</a>, J. Math. Phys. 28 (1987), 1653-1657.
%e G.f. = 2*q^(3/16) + 6*q^(19/16) + 12*q^(35/16) + 12*q^(51/16) + 6*q^(67/16) + 18*q^(83/16) + 18*q^(99/16) + ...
%t prec = 10;
%t eta[q_, a_] := Sum[q^((i + a)^2), {i, Range[-prec, prec]}];
%t t2[q_] := eta[q, 1/2];
%t t3[q_] := eta[q, 0];
%t T = Expand[t2[q^(1/2)]*(t2[q^2]*eta[q^4, 3/8] + t3[q^2]*eta[q^4, 1/8])] // PowerExpand;
%t A = Range[prec*16 + 1];
%t Do[A[[i + 1]] = Coefficient[T, q, i/16], {i, 1, prec*16}];
%t A[[1]] = 0; A (* _Andy Huchala_, May 17 2023 *)
%Y Cf. A045840, A217513.
%K easy,nonn
%O 0,4
%A _N. J. A. Sloane_
%E More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Feb 23 2008