A369433 a(n) = [x^n] Product_{k=1..n} (x^(k^2) + 1 + 1/x^(k^2)).

1, 1, 0, 1, 3, 5, 7, 13, 35, 82, 168, 409, 1035, 2540, 6262, 16068, 41474, 107259, 279256, 736359, 1953946, 5205746, 13938670, 37567522, 101675407, 276158642, 752927255, 2060852216, 5658658210, 15582628517, 43032891276, 119166025289, 330808837377

Offset: 0

Author

Ilya Gutkovskiy, Jan 23 2024

Keywords

• nonn

Crossrefs

Cf. A000290, A316706, A348165, A350249.

Programs

Mathematica

Table[Coefficient[Product[(x^(k^2) + 1 + 1/x^(k^2)), {k, 1, n}], x, n], {n, 0, 32}]