OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
f[n_] := Block[{k = 0, p = 1}, While[a = Floor[n/10^k]; a > 0, p *= 1 + a; k++]; p]; t = Array[f, 591, 0]; Take[ Complement[ Union[ Rest@ t - Most@ t], t], 50]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, May 10 2011
STATUS
approved