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

1, -1, 1, -1, 1, -1, 1, -2, 3, -4, 5, -6, 7, -8, 10, -13, 17, -22, 27, -33, 40, -49, 61, -77, 98, -123, 153, -189, 233, -288, 358, -448, 561, -701, 872, -1082, 1342, -1666, 2073, -2584, 3223, -4016, 4997, -6212, 7720, -9598, 11942, -14869, 18517, -23053, 28687

Offset

0,8

Links

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

Mathematica

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

Crossrefs

Cf. A000566, A106507, A308806, A317665, A322799, A361979, A363275.

Sequence in context: A062010 A071218 A215775 * A236310 A005709 A017901

Adjacent sequences: A363146 A363147 A363148 * A363150 A363151 A363152

Keyword

sign

Author

Ilya Gutkovskiy, May 25 2023

Status

approved