A333817 G.f.: Sum_{k>=1} x^(k*(5*k - 3)/2) / (1 - x^(5*k)).

1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 2, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1

Offset

1,81

Comments

Number of ways to write n as the difference of two heptagonal numbers.

Links

Table of n, a(n) for n=1..93.

Formula

G.f.: Sum_{i>=0} Sum_{j>=i} Product_{k=i..j} x^(5*k + 1).

Mathematica

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

Crossrefs

Cf. A000566, A001227, A034178, A333815, A333816, A333818.

Sequence in context: A256852 A128616 A331902 * A270417 A353333 A353303

Adjacent sequences: A333814 A333815 A333816 * A333818 A333819 A333820

Keyword

nonn

Author

Ilya Gutkovskiy, Apr 06 2020

Status

approved