A097984 Largest m such that p(m)< 10^n, where p(m) is the partition function A000041(m).

5, 12, 21, 32, 45, 60, 76, 94, 114, 135, 159, 184, 210, 239, 269, 301, 334, 369, 406, 444, 485, 526, 570, 615, 662, 710, 760, 812, 866, 921, 977, 1036, 1096, 1158, 1221, 1286, 1353, 1421, 1491, 1562, 1636, 1710, 1787, 1865, 1945

Offset

1,1

Links

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

Mathematica

For[n = 1, n < 2000, n++, If[Floor[Log[10, PartitionsP[n]]] + 1 == Floor[Log[10, PartitionsP[n + 1]]], Print[n]]] (Steinerberger)

Crossrefs

Cf. A000041.

Sequence in context: A121291 A272012 A272451 * A028347 A346379 A354399

Adjacent sequences: A097981 A097982 A097983 * A097985 A097986 A097987

Keyword

nonn

Author

Lekraj Beedassy, Sep 07 2004

Extensions

More terms from Stefan Steinerberger, Feb 03 2006

Status

approved