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,1

Links

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

Formula

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

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

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

Sequence in context: A137670 A330600 A217044 * A080830 A165566 A072184

Adjacent sequences: A145481 A145482 A145483 * A145485 A145486 A145487

Keyword

nonn

Author

Artur Jasinski, Oct 11 2008

Status

approved