OFFSET
1,3
MATHEMATICA
f[n_] := Module[{s, i}, s = 0; For[i = 1, i < n, i++, If[Mod[n, i] != 0, s = s + DivisorSigma[1, i]]]; s]; Table[f[i], {i, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Oct 24 2002
STATUS
approved