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

Author

Jeff Burch, Jul 03 2002

Keywords

• nonn

Crossrefs

Cf. A000041.

Programs

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 *)