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

11, 17, 37, 61, 73, 137, 157, 181, 241, 257, 277, 373, 397, 409, 421, 433, 577, 601, 617, 641, 661, 769, 821, 1097, 1117, 1129, 1153, 1201, 1237, 1249, 1297, 1453, 1481, 1597, 1621, 1657, 1861, 1933, 2089, 2129, 2281, 2297, 2417, 2441, 2473, 2749, 2857, 3037

Offset: 1

Author

Giovanni Teofilatto, Sep 18 2004

Keywords

• nonn

Comments

a(n) == 1 (mod 4), except for the initial term.

Links

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

Crossrefs

Cf. A097361.

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, Dec 25 2019 *)

Extensions

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