A357452 Number of partitions of n into tetranacci numbers 1,2,4,8,15,29, ... (A000078).

1, 1, 2, 2, 4, 4, 6, 6, 10, 10, 14, 14, 20, 20, 26, 27, 36, 37, 46, 48, 60, 62, 74, 78, 94, 98, 114, 120, 140, 147, 168, 178, 204, 215, 242, 256, 288, 304, 338, 358, 398, 420, 462, 488, 537, 567, 619, 654, 714, 753, 816, 860, 932, 982, 1058, 1114

Offset

0,3

Links

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

Formula

G.f.: Product_{k>=4} 1 / (1 - x^A000078(k)).

Mathematica

A000078[0] = A000078[1] = A000078[2] = 0; A000078[3] = 1; A000078[n_] := A000078[n] = A000078[n - 1] + A000078[n - 2] + A000078[n - 3] + A000078[n - 4]; nmax = 55; CoefficientList[Series[Product[1/(1 - x^A000078[k]), {k, 4, 20}], {x, 0, nmax}], x]

Crossrefs

Cf. A000078, A003107, A240844, A287656, A357453, A357454.

Sequence in context: A008645 A018819 A357454 * A211511 A211513 A309686

Adjacent sequences: A357449 A357450 A357451 * A357453 A357454 A357455

Keyword

nonn

Author

Ilya Gutkovskiy, Sep 29 2022

Status

approved