A145481 Primes p such that 2p - 17 is prime.

11, 17, 23, 29, 53, 59, 83, 107, 137, 149, 167, 233, 239, 263, 269, 293, 317, 347, 359, 389, 419, 449, 479, 557, 563, 599, 617, 647, 653, 659, 809, 827, 857, 863, 947, 953, 983, 1049, 1163, 1187, 1217, 1229, 1283, 1319, 1373, 1409, 1427, 1439, 1487, 1493

Offset

1,1

Links

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

Formula

a(n) = 2*A145475(n) - 17.

Mathematica

aa = {}; k = 17; Do[If[PrimeQ[(k + Prime[n])/2], AppendTo[aa, k + Prime[n])/2]], {n, 1, 500}]; aa
(* Second program: *)
Select[Prime@ Range@ 250, And[PrimeQ@ #, # > 0] &[2 # - 17] &] (* Michael De Vlieger, Jan 23 2017 *)

Crossrefs

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

Sequence in context: A160129 A275682 A265402 * A006621 A337359 A275596

Adjacent sequences: A145478 A145479 A145480 * A145482 A145483 A145484

Keyword

nonn

Author

Artur Jasinski, Oct 11 2008

Status

approved