A363275 Expansion of 1 / Sum_{k>=0} x^(k*(3*k - 2)).

1, -1, 1, -1, 1, -1, 1, -1, 0, 1, -2, 3, -4, 5, -6, 7, -7, 6, -4, 1, 3, -9, 16, -24, 32, -39, 44, -46, 44, -35, 18, 8, -43, 86, -135, 187, -238, 280, -304, 300, -259, 171, -28, -174, 435, -746, 1088, -1431, 1736, -1952, 2017, -1864, 1425, -641, -527, 2086, -4002

Offset: 0

Author

Ilya Gutkovskiy, May 25 2023

Keywords

• sign

Crossrefs

Cf. A000567, A106507, A195848, A308806, A317665, A322800, A361979, A363149.

Programs

Mathematica

nmax = 56; CoefficientList[Series[1/Sum[x^(k (3 k - 2)), {k, 0, nmax}], {x, 0, nmax}], x]