OFFSET
1,7
COMMENTS
LINKS
Paul D. Hanna, Table of n, a(n) for n = 1..201
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
FORMULA
a(n) = A370041(n,0) for n >= 1.
G.f. A(x) = Sum_{n>=1} a(n)*x^n satisfies the following formulas.
(1) A(x) = (theta_3(x) - 1)/2 * Product_{n>=1} (1 - x^(4*n-2))/(1 - x^(4*n)).
(2) A(x) = P(x)/Q(x) where P(x) = Sum_{n>=1} x^(n^2) and Q(x) = Sum_{n>=0} x^(n*(n+1)).
(3) A(x) = G(x,0) where G(x,y) is the g.f. of triangle A370041 (see comment).
EXAMPLE
G.f.: A(x) = x - x^3 + x^4 + x^5 - x^6 - 2*x^7 + x^8 + 4*x^9 - 2*x^10 - 5*x^11 + 3*x^12 + 6*x^13 - 4*x^14 - 9*x^15 + 6*x^16 + 13*x^17 - 8*x^18 + ...
which equals A(x) = P(x) / Q(x)
where
P(x) = x + x^4 + x^9 + x^16 + x^25 + x^36 + x^49 + ...
Q(x) = 1 + x^2 + x^6 + x^12 + x^20 + x^30 + x^42 + ...
PROG
(PARI) {a(n) = my(P = sum(m=1, sqrtint(n+1), x^(m^2) +x*O(x^n)),
Q = sum(m=0, sqrtint(n+1), x^(m*(m+1)) +x*O(x^n))); polcoeff(P/Q, n)}
for(n=1, 50, print1(a(n), ", "))
CROSSREFS
KEYWORD
sign
AUTHOR
Paul D. Hanna, Feb 10 2024
STATUS
approved