A145484 Primes p such that 2*p - 29 is a positive prime.

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

Offset: 1

Author

Artur Jasinski, Oct 11 2008

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A063908-A063913, A092109, A145471-A145490.

Programs

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 *)

Formula

a(n) = 2*A145478(n) - 29.