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

6, 13, 22, 33, 46, 61, 77, 95, 115, 136, 160, 185, 211, 240, 270, 302, 335, 370, 407, 445, 486, 527, 571, 616, 663, 711, 761, 813, 867, 922, 978, 1037, 1097, 1159, 1222, 1287, 1354, 1422, 1492, 1563, 1637, 1711, 1788, 1866, 1946, 2027, 2110, 2195, 2281

Offset

1,1

Links

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

Mathematica

f[n_] := Block[{m = 1}, While[ PartitionsP[m] < 10^n, m++ ]; m]; Table[ f[n], {n, 0, 50}]
With[{tbl=Table[{m, PartitionsP[m]}, {m, 2500}]}, Table[SelectFirst[tbl, #[[2]]>10^n&], {n, 50}]][[;; , 1]] (* Harvey P. Dale, Aug 14 2024 *)

Crossrefs

Cf. A000041.

Sequence in context: A101247 A243655 A377607 * A028872 A049718 A036707

Adjacent sequences: A072209 A072210 A072211 * A072213 A072214 A072215

Keyword

nonn

Author

Jeff Burch, Jul 03 2002

Status

approved