A072215 a(0) = 4; for n >= 0, a(n+1) = number of partitions of a(n).

4, 5, 7, 15, 176, 476715857290

Offset

0,1

Comments

a(6) is too large to include (even in a b-file).

a(6) = 26680 54494 90278 28685 82404 ... {769101 digits} ... 72432 87250 16775 65100 60652. - Robert G. Wilson v, Sep 30 2009

Links

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

Maple

a:= n-> `if`(n=0, 4, combinat[numbpart](a(n-1))):
seq(a(n), n=0..5);  # Alois P. Heinz, Apr 05 2021

Mathematica

NestList[PartitionsP, 4, 5]

Prog

(Python)
from itertools import accumulate
from sympy.ntheory import npartitions
def f(an, _): return npartitions(an)
print(list(accumulate([4]*6, f))) # Michael S. Branicky, Apr 05 2021

Crossrefs

Cf. A000041, A072239.

Sequence in context: A069575 A250182 A358701 * A106170 A353246 A281991

Adjacent sequences: A072212 A072213 A072214 * A072216 A072217 A072218

Keyword

nonn

Author

Jeff Burch, Jul 04 2002

Extensions

Edited by N. J. A. Sloane, May 05 2007

Status

approved