A072245 Smallest m such that number of distinct partitions of m exceeds 10^n.

1, 10, 23, 40, 60, 83, 110, 141, 175, 213, 253, 298, 345, 396, 451, 508, 570, 634, 702, 773, 847, 925, 1006, 1090, 1178, 1269, 1363, 1460, 1561, 1665, 1773, 1883, 1997, 2114, 2235, 2359, 2486, 2616, 2750, 2887, 3027, 3170, 3317, 3467, 3620, 3777, 3936

Offset

0,2

Links

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

Mathematica

f[n_] := Block[{m = 1}, While[ PartitionsQ[m] < 10^n, m++ ]; m]; Table[ f[n], {n, 0, 50}]

Crossrefs

Cf. A000009.

Sequence in context: A154033 A275238 A140674 * A135277 A156202 A266080

Adjacent sequences: A072242 A072243 A072244 * A072246 A072247 A072248

Keyword

nonn

Author

Robert G. Wilson v, Jul 06 2002

Status

approved