%I #3 Mar 30 2012 17:30:44
%S 1,10,23,40,60,83,110,141,175,213,253,298,345,396,451,508,570,634,702,
%T 773,847,925,1006,1090,1178,1269,1363,1460,1561,1665,1773,1883,1997,
%U 2114,2235,2359,2486,2616,2750,2887,3027,3170,3317,3467,3620,3777,3936
%N Smallest m such that number of distinct partitions of m exceeds 10^n.
%t f[n_] := Block[{m = 1}, While[ PartitionsQ[m] < 10^n, m++ ]; m]; Table[ f[n], {n, 0, 50}]
%Y Cf. A000009.
%K nonn
%O 0,2
%A _Robert G. Wilson v_, Jul 06 2002
|