A097361 Primes of the form 2(p+q) - 1, where p and q are consecutive primes.

23, 47, 59, 71, 83, 103, 167, 179, 199, 223, 239, 419, 431, 443, 479, 599, 659, 719, 743, 911, 983, 1039, 1063, 1151, 1259, 1367, 1423, 1451, 1523, 1543, 1571, 1619, 1783, 1811, 1847, 1931, 1979, 2003, 2087, 2207, 2239, 2383, 2399, 2459, 2543, 2579, 2699

Offset: 1

Author

Giovanni Teofilatto, Sep 18 2004

Keywords

• nonn
• easy

Comments

a(n) == 3 (mod 4).

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A097358, A098649.

Programs

Mathematica

Select[ Table[2(Prime[i] + Prime[i + 1]) - 1, {i, 150}], PrimeQ[ # ] &] (* Robert G. Wilson v, Sep 19 2004 *)
Select[2*Total[#]-1&/@Partition[Prime[Range[200]],2,1],PrimeQ] (* Harvey P. Dale, Oct 15 2015 *)

Extensions

More terms from Robert G. Wilson v, Sep 19 2004