OFFSET
1,1
COMMENTS
Note that the smaller member of a pair of sexy primes with the same constraint on centuries defines a different sequence, since members of a sexy prime pair do not need to be *consecutive* primes.
The larger member in the pair is obtained by adding 6 to an entry.
Every a(n)+3 is a multiple of 100 such that neither a(n)+2 nor a(n)+4 are primes. It appears that every integer occurs as the difference round((a(n+1)-a(n))/100); all numbers 1..333 occur as these differences for a(n) < 1000000000. - Hartmut F. W. Hoft, May 18 2017
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
EXAMPLE
30097 + 6 = 30103.
MATHEMATICA
Transpose[Select[Partition[Prime[Range[5000]], 2, 1], #[[2]]-#[[1]] == 6 && Floor[#[[1]]/100]!=Floor[#[[2]]/100]&]][[1]] (* Harvey P. Dale, Apr 28 2012 *)
a160370[n_] := Select[Range[97, n, 100], AllTrue[# + {0, 6}, PrimeQ] && NoneTrue[# + {2, 4}, PrimeQ]&]
a160370[49000] (* data *) (* Hartmut F. W. Hoft, May 18 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ki Punches, May 11 2009
EXTENSIONS
Edited by R. J. Mathar, May 14 2009
STATUS
approved