A145482 Primes p such that 2p - 19 is prime.

11, 13, 19, 31, 43, 61, 73, 79, 109, 151, 163, 193, 199, 229, 241, 271, 283, 313, 331, 373, 379, 421, 439, 463, 541, 571, 661, 673, 709, 733, 739, 751, 823, 859, 883, 1009, 1051, 1129, 1153, 1201, 1279, 1453, 1543, 1549, 1663, 1669, 1741, 1759, 1783, 1789

Offset

1,1

Links

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

Formula

a(n) = 2*A145476(n) - 19.

Mathematica

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

Crossrefs

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

Sequence in context: A092402 A081983 A081984 * A167497 A068579 A048519

Adjacent sequences: A145479 A145480 A145481 * A145483 A145484 A145485

Keyword

nonn

Author

Artur Jasinski, Oct 11 2008

Status

approved