A280453 G.f.: Product_{k>=1, j>=1} 1/(1 - x^(j^2*k^2)).

1, 1, 1, 1, 3, 3, 3, 3, 6, 8, 8, 8, 12, 16, 16, 16, 24, 30, 33, 33, 45, 53, 59, 59, 75, 93, 102, 106, 126, 154, 166, 174, 204, 242, 270, 282, 331, 379, 423, 439, 507, 583, 643, 681, 768, 886, 962, 1022, 1138, 1300, 1425, 1507, 1687, 1893, 2086, 2190, 2434

Offset: 0

Author

Vaclav Kotesovec, Jan 03 2017

Keywords

• nonn

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A006171, A004101, A280452.

Programs

Mathematica

nmax = 100; CoefficientList[Series[Product[1/(1-x^(j^2*k^2)), {k, 1, Sqrt[nmax]+1}, {j, 1, Floor[Sqrt[nmax/k^2]] + 1}], {x, 0, nmax}], x]