OFFSET
0,2
MATHEMATICA
f[n_] := Block[{m = 1}, While[ PartitionsQ[m] < 10^n, m++ ]; m]; Table[ f[n], {n, 0, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 06 2002
STATUS
approved