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.
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
KEYWORD
nonn
AUTHOR
Carmine Suriano, Feb 03 2014
STATUS
approved