A239876 Partial sums of A229110, where A229110(n) = antisigma(n) mod n = A024816(n) mod n.
0, 0, 2, 5, 9, 12, 18, 23, 28, 35, 45, 47, 59, 70, 76, 85, 101, 107, 125, 133, 143, 162, 184, 184, 203, 226, 240, 254, 282, 285, 315, 332, 350, 381, 403, 438, 474, 509, 531, 541, 581, 590, 632, 658, 670, 713, 759, 803, 844, 876, 906, 938, 990, 1005, 1043, 1063
Offset: 1
Keywords
Links
- Jaroslav Krizek, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[&+[(k*(k+1)div 2 - SumOfDivisors (k)) mod k: k in [1..n]]: n in [1..1000]]
-
Mathematica
Accumulate[Table[Mod[Total[Complement[Range[n],Divisors[n]]],n],{n,60}]] (* Harvey P. Dale, Jul 05 2024 *)
Comments