|
|
A178386
|
|
Primes p such that q*p+-Mod(p,q) are primes, for q=6.
|
|
2
|
|
|
7, 11, 17, 41, 59, 71, 103, 113, 239, 269, 283, 311, 313, 373, 397, 449, 577, 587, 701, 787, 827, 907, 941, 977, 1033, 1117, 1217, 1259, 1361, 1373, 1423, 1571, 1721, 1907, 1949, 2087, 2137, 2203, 2287, 2293, 2347, 2423, 2549, 2591, 2677, 2897, 2957, 3023
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
6*7=42+-1->primes, 6*11=66+-5->primes,..
|
|
LINKS
|
|
|
MATHEMATICA
|
q=6; lst={}; Do[p=Prime[n]; If[PrimeQ[q*p-Mod[p, q]]&&PrimeQ[q*p+Mod[p, q]], AppendTo[lst, p]], {n, 7!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|