A087031 Numbers n such that 2p-n is prime, p is the smallest prime > n.

1, 3, 9, 15, 27, 31, 33, 39, 47, 57, 61, 63, 69, 75, 91, 93, 99, 105, 115, 117, 123, 135, 141, 147, 151, 159, 167, 177, 183, 185, 189, 195, 199, 213, 217, 219, 225, 237, 245, 251, 257, 267, 271, 273, 279, 297, 301, 303, 309, 325, 341, 345, 361, 367, 375

Offset

1,2

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Example

3 is a term because smallest prime >3 is 5 and 2*5-3=7 is prime.

Mathematica

Select[Range[400], PrimeQ[2*NextPrime[#]-#]&] (* Harvey P. Dale, Jul 02 2018 *)

Prog

(PARI) isok(n) = isprime(2*nextprime(n+1) - n);  \\ Michel Marcus, Oct 03 2013

Crossrefs

Cf. A087030.

Sequence in context: A354958 A249734 A319316 * A089632 A247643 A287351

Adjacent sequences: A087028 A087029 A087030 * A087032 A087033 A087034

Keyword

easy,nonn

Author

Zak Seidov, Jul 31 2003

Extensions

Corrected by Michel Marcus, Oct 03 2013

Status

approved