%I #5 Mar 31 2012 10:26:03
%S 5,12,21,32,45,60,76,94,114,135,159,184,210,239,269,301,334,369,406,
%T 444,485,526,570,615,662,710,760,812,866,921,977,1036,1096,1158,1221,
%U 1286,1353,1421,1491,1562,1636,1710,1787,1865,1945
%N Largest m such that p(m)< 10^n, where p(m) is the partition function A000041(m).
%t For[n = 1, n < 2000, n++, If[Floor[Log[10, PartitionsP[n]]] + 1 == Floor[Log[10, PartitionsP[n + 1]]], Print[n]]] (Steinerberger)
%Y Cf. A000041.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Sep 07 2004
%E More terms from _Stefan Steinerberger_, Feb 03 2006