A321285 Expansion of Product_{1 <= i < j} 1/(1 - x^(i*j)).

1, 0, 1, 1, 2, 2, 5, 4, 9, 9, 16, 17, 31, 31, 52, 59, 89, 101, 154, 172, 254, 294, 412, 483, 675, 782, 1070, 1265, 1686, 1996, 2647, 3121, 4086, 4854, 6252, 7442, 9534, 11306, 14360, 17092, 21489, 25566, 31989, 37981, 47224, 56123, 69283, 82290, 101185, 119930, 146768

Offset

0,5

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

N. J. A. Sloane, Transforms

Formula

Euler transform of A056924.

G.f.: Product_{k>0} 1/(1 - x^k)^A056924(k).

Mathematica

nmax = 50; CoefficientList[Series[Product[1/(1 - x^k)^Floor[DivisorSigma[0, k]/2], {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Nov 02 2018 *)

Crossrefs

Cf. A056924, A182269, A321286.

Sequence in context: A236335 A016724 A058657 * A091434 A027633 A091726

Adjacent sequences: A321282 A321283 A321284 * A321286 A321287 A321288

Keyword

nonn

Author

Seiichi Manyama, Nov 02 2018

Status

approved