OFFSET
1,1
COMMENTS
All terms == 11 (mod 30). - Robert Israel, Nov 30 2015
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
191 is here because 191 + 2 = 193, 191 + 4 + 2 = 197, 191 + 2 + 4 + 2 = 199 are primes; the prime preceding 191 is 181; the prime following 199 is 211; and the corresponding differences are 10 and 12. Thus the d-pattern "around 191" is {10,2,4,2,12}.
MAPLE
Primes:= select(isprime, [2, seq(i, i=3..10^6, 2)]):
Gaps:= Primes[2..-1]-Primes[1..-2]:
Primes[select(t -> Gaps[t] = 2 and Gaps[t+1] = 4 and Gaps[t+2] = 2 and Gaps[t-1] >= 6 and Gaps[t+3]>=6, [$2..nops(Gaps)-3])]; # Robert Israel, Nov 30 2015
MATHEMATICA
With[{x = 6, y = 6, s = Partition[#, 6, 1] &@ Prime@ Range[3*10^4]}, Select[s, And[First@ # >= x, Last@ # >= y, Most@ Rest@ # == {2, 4, 2}] &@ Differences@ # &]][[All, 2]] (* Michael De Vlieger, Oct 26 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2000
STATUS
approved