OFFSET
1,5
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Array[If[# < 3, 0, Mod[PolygonalNumber@ #, Total@ Complement[Range@ #, Divisors@ #]]] &, 65] (* Michael De Vlieger, Jan 28 2020 *)
PROG
(Magma) [((n*(n+1)div 2) mod (n*(n+1)div 2-SumOfDivisors(n))): n in [3..1000]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, May 29 2014
STATUS
approved