login
A156557
Primes of the form Sum_{k=1..m} (m^k mod (m+k)).
3
2, 23, 43, 67, 73, 541, 673, 911, 2333, 3733, 4451, 4657, 5279, 6043, 7591, 8887, 9521, 12539, 16651, 20173, 26111, 26981, 30029, 30817, 33601, 34981, 37357, 41983, 42359, 45007, 47947, 53819, 58907, 69239, 75617, 79309, 81421, 97931, 101879, 104459, 110597
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
EXTENSIONS
Offset changed to 1 by Jinyuan Wang, Aug 02 2021
STATUS
approved