|
|
A280453
|
|
G.f.: Product_{k>=1, j>=1} 1/(1 - x^(j^2*k^2)).
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
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]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|