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,1

Comments

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

Links

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

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 *)

Crossrefs

Cf. A097361.

Sequence in context: A317453 A339247 A317678 * A078872 A291374 A181421

Adjacent sequences: A098646 A098647 A098648 * A098650 A098651 A098652

Keyword

nonn

Author

Giovanni Teofilatto, Sep 18 2004

Extensions

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

Status

approved