OFFSET
1,2
LINKS
FORMULA
EXAMPLE
n=100, sigma(100)=217, SumDigit(217)=10, a(100)=10.
MATHEMATICA
Array[Total[IntegerDigits[DivisorSigma[1, #]]]&, 90] (* Harvey P. Dale, Jan 02 2012 *)
PROG
(PARI) vector(80, n, sumdigits(sigma(n))) \\ Michel Marcus, Apr 08 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Labos Elemer, Jan 16 2002
EXTENSIONS
Offset corrected to 1 by Michel Marcus, Dec 26 2013
STATUS
approved