A237055 Least prime p not already included in the sequence such that p + 2n is a prime.

3, 7, 5, 11, 13, 17, 23, 31, 19, 41, 37, 29, 47, 43, 53, 71, 67, 61, 59, 73, 89, 83, 103, 79, 101, 97, 109, 107, 139, 113, 131, 127, 157, 173, 163, 151, 137, 181, 149, 191, 199, 167, 197, 193, 179, 239, 223, 211, 233, 283, 229, 227, 241, 251, 257, 271, 269

Offset

1,1

Comments

Includes only odd numbers. The sequence includes all prime numbers since, for any prime, another prime exists differing by an even number.

Links

Table of n, a(n) for n=1..57.

Maple

a(7)=23 since 23+2*7 = 23+14 = 37 is prime.

Mathematica

t = {}; Do[p = 3; While[! (PrimeQ[p + 2 n] && ! MemberQ[t, p]), p = NextPrime[p]]; AppendTo[t, p], {n, 100}]; t (* T. D. Noe, Feb 04 2014 *)

Crossrefs

Sequence in context: A328190 A090978 A113830 * A074368 A074588 A287865

Adjacent sequences: A237052 A237053 A237054 * A237056 A237057 A237058

Keyword

nonn

Author

Carmine Suriano, Feb 03 2014

Status

approved