|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|