OFFSET
1,3
LINKS
B. D. Swan, Table of n, a(n) for n=1,...,10000
MATHEMATICA
DivisorSigma[1, #]-DivisorSigma[0, #]-#+1&/@Accumulate[Range[60]] (* Harvey P. Dale, May 06 2014 *)
PROG
(PARI) a(n) = sigma(n*(n+1)/2) - n*(n+1)/2 - (numdiv(n*(n+1)/2) - 1); \\ Michel Marcus, Jan 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Dec 20 2008
STATUS
approved