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

Comments

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

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, Oct 15 2015 *)

Crossrefs

Cf. A097358, A098649.

Sequence in context: A121762 A185935 A052159 * A073025 A209193 A201019

Adjacent sequences: A097358 A097359 A097360 * A097362 A097363 A097364

Keyword

nonn,easy

Author

Giovanni Teofilatto, Sep 18 2004

Extensions

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

Status

approved