|
|
A145484
|
|
Primes p such that 2p - 29 is a positive prime.
|
|
1
|
|
|
17, 23, 29, 41, 59, 71, 83, 89, 101, 113, 131, 149, 173, 191, 239, 269, 293, 311, 353, 401, 419, 443, 479, 491, 503, 521, 563, 569, 653, 659, 701, 719, 761, 821, 863, 881, 953, 971, 1013, 1049, 1091, 1151, 1163, 1181, 1193, 1223, 1289, 1319, 1361, 1409
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
aa = {}; k = 29; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, k + Prime[n])/2]], {n, 1, 500}]; aa (* Artur Jasinski *)
Select[Prime[Range[7, 300]], PrimeQ[2#-29]&] (* Harvey P. Dale, Dec 14 2010 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|