OFFSET
4,1
LINKS
FORMULA
a(n) is the coefficient of x^(n^2) in expansion of (theta_3(x) - 1)^10 / (1024 * (1 - x)).
MAPLE
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(n=0, 0,
add((s->`if`(s>n, 0, b(n-s, k-1)))(j^2), j=1..isqrt(n))))
end:
a:= n-> b(n^2, 10):
seq(a(n), n=4..27); # Alois P. Heinz, Feb 11 2021
MATHEMATICA
Table[SeriesCoefficient[(EllipticTheta[3, 0, x] - 1)^10/(1024 (1 - x)), {x, 0, n^2}], {n, 4, 27}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 11 2021
STATUS
approved