OFFSET
1,3
COMMENTS
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Accumulate[Table[Mod[Total[Complement[Range[n], Divisors[n]]], n], {n, 60}]] (* Harvey P. Dale, Jul 05 2024 *)
PROG
(Magma)[&+[(k*(k+1)div 2 - SumOfDivisors (k)) mod k: k in [1..n]]: n in [1..1000]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Mar 29 2014
STATUS
approved