The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A321428 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A321428

Expansion of Product_{i>0, j>0} (1 + x^(i^2 + j^2)).
(history; published version)

#14 by Vaclav Kotesovec at Fri Nov 09 10:37:23 EST 2018

STATUS

editing

approved

#13 by Vaclav Kotesovec at Fri Nov 09 10:07:14 EST 2018

MATHEMATICA

nmax = 100; A063725 = Rest[CoefficientList[Series[(EllipticTheta[3, 0, x] - 1)^2/4, {x, 0, nmax}], x]]; s = 1; Do[s *= Sum[Binomial[A063725[[k]], j]*x^(j*k), {j, 0, nmax/k}]; s = Expand[s]; s = Take[s, Min[nmax + 1, Exponent[s, x] + 1, Length[s]]]; , {k, 2, nmax}]; Take[CoefficientList[s, x], nmax + 1] (* Vaclav Kotesovec, Nov 09 2018 *)

STATUS

approved

editing

#12 by Vaclav Kotesovec at Fri Nov 09 09:29:25 EST 2018

STATUS

proposed

approved

#11 by Seiichi Manyama at Fri Nov 09 08:44:05 EST 2018

STATUS

editing

proposed

#10 by Seiichi Manyama at Fri Nov 09 08:43:08 EST 2018

LINKS

Seiichi Manyama, <a href="/A321428/b321428.txt">Table of n, a(n) for n = 0..10000</a>

STATUS

approved

editing

#9 by Susanna Cuyler at Fri Nov 09 07:58:27 EST 2018

STATUS

reviewed

approved

#8 by Joerg Arndt at Fri Nov 09 07:29:22 EST 2018

STATUS

proposed

reviewed

#7 by Seiichi Manyama at Fri Nov 09 07:01:42 EST 2018

STATUS

editing

proposed

#6 by Seiichi Manyama at Fri Nov 09 07:01:30 EST 2018

CROSSREFS

Cf. A063725, A321380, A321429.

#5 by Seiichi Manyama at Fri Nov 09 06:54:16 EST 2018

FORMULA

G.f.: Product_{k>0} (1 + x^k)^A063725(k).

CROSSREFS

Cf. A063725, A321380.