OFFSET
1,1
MAPLE
P:=proc(i) local a, n; for n from 0 by 1 to i do a:=sum('(n^k mod (n+k))', 'k'=1..n); if isprime(a) then print(a); fi; od; end: P(500);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Feb 10 2009
EXTENSIONS
Offset changed to 1 by Jinyuan Wang, Aug 02 2021
STATUS
approved