A004089 Reverse digits of number of partitions of n.

1, 1, 2, 3, 5, 7, 11, 51, 22, 3, 24, 65, 77, 101, 531, 671, 132, 792, 583, 94, 726, 297, 2001, 5521, 5751, 8591, 6342, 103, 8173, 5654, 4065, 2486, 9438, 34101, 1321, 38841, 77971, 73612, 51062, 58113, 83373, 38544, 47135, 16236, 57157, 43198, 855501, 457421, 372741, 525371

Offset

0,3

Links

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

Formula

a(n) = A004086(A000041(n)). - Michel Marcus, Apr 25 2025

Mathematica

Table[FromDigits[Reverse[IntegerDigits[Length[ IntegerPartitions[n]]]]], {n, 0, 50}]  (* Harvey P. Dale, Apr 11 2011 *)

Prog

(PARI) a(n) = fromdigits(Vecrev(digits(numbpart(n)))); \\ Michel Marcus, Apr 25 2025

Crossrefs

Cf. A000041, A004086.

Sequence in context: A036343 A378775 A058253 * A092791 A070892 A075800

Adjacent sequences: A004086 A004087 A004088 * A004090 A004091 A004092

Keyword

nonn,base

Author

N. J. A. Sloane

Extensions

More terms from Michel Marcus, Apr 25 2025

Status

approved