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,11

Links

Table of n, a(n) for n=0..56.

Mathematica

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

Crossrefs

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

Sequence in context: A101918 A291169 A323633 * A291567 A132125 A102672

Adjacent sequences: A363272 A363273 A363274 * A363276 A363277 A363278

Keyword

sign

Author

Ilya Gutkovskiy, May 25 2023

Status

approved