|
|
A088047
|
|
Smallest prime(k) such that prime(k)-prime(j) == 0 (mod prime(n)), for some k > j.
|
|
3
|
|
|
5, 5, 7, 17, 13, 29, 19, 41, 53, 31, 67, 79, 43, 89, 97, 109, 61, 127, 137, 73, 149, 163, 173, 181, 197, 103, 211, 109, 223, 229, 257, 269, 139, 281, 151, 307, 317, 331, 337, 349, 181, 367, 193, 389, 199, 401, 433, 449, 229, 461, 479, 241, 487, 509, 521, 557
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If prime(m), prime(m+1) form a twin prime pair then a(m) = prime(m+1).
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = 13 as 13-2 =11, a(8) = 41 as 41-3 = 38 = 2*19.
|
|
PROG
|
(PARI) r=Set(); forprime(n=2, 10^5, s=r; forprime(k=n, 10^5, if(setsearch(s, k%n), print1(" ", k); break, s=setunion(s, [k%n]))); r=setunion(r, [n])) (Alekseyev)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|