OFFSET
1,2
MATHEMATICA
With[{c=DivisorSigma[0, Range[30]]}, Table[FromDigits[Take[c, n]], {n, 20}]] (* Harvey P. Dale, Jul 13 2012 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Omar E. Pol, Sep 05 2007
STATUS
approved