A279279 Expansion of Product_{k>=1} (1 + x^(k*(2*k-1))).

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

Offset

0,67

Comments

Number of partitions of n into distinct hexagonal numbers (A000384).

Links

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

Eric Weisstein's World of Mathematics, Hexagonal Number

Index to sequences related to polygonal numbers

Index entries for related partition-counting sequences

Formula

G.f.: Product_{k>=1} (1 + x^(k*(2*k-1))).

Example

a(67) = 2 because we have [66, 1] and [45, 15, 6, 1].

Mathematica

nmax = 120; CoefficientList[Series[Product[1 + x^(k (2 k - 1)), {k, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A000384, A024940, A033461, A218380, A278949, A279280, A279281.

Sequence in context: A230629 A027359 A236109 * A035447 A227188 A354107

Adjacent sequences: A279276 A279277 A279278 * A279280 A279281 A279282

Keyword

nonn

Author

Ilya Gutkovskiy, Dec 09 2016

Status

approved