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

1, -1, 1, -1, 1, -1, 0, 1, -2, 3, -4, 5, -5, 4, -2, -2, 7, -13, 19, -24, 27, -25, 17, -2, -20, 48, -80, 110, -132, 137, -116, 62, 30, -158, 314, -479, 622, -704, 680, -507, 150, 405, -1135, 1973, -2797, 3432, -3662, 3250, -1983, -280, 3540, -7592, 11977, -15953

Offset: 0

Author

Ilya Gutkovskiy, May 25 2023

Keywords

• sign

Crossrefs

Cf. A000384, A006950, A106507, A308806, A317665, A322798, A363149, A363275.

Programs

Mathematica

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