A145481 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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