OFFSET
1,1
EXAMPLE
37 is here because 37 + 4 = 41, 37 + 4 + 2 = 43, 37 + 4 + 2 + 4 = 47 are consecutive primes and the prime preceding 37 is 31, the prime following 47 is 53, and the corresponding differences are 6 and 6. Thus the d-pattern "around 37" is {6,4,2,4}.
MATHEMATICA
okQ[n_List]:=Module[{d=Differences[n]}, Take[d, {2, 4}]=={4, 2, 4} && First[d]>5&&Last[d]>5]; Transpose[Select[ Partition[ Prime[ Range[ 4400]], 6, 1], okQ]][[2]] (* Harvey P. Dale, Jul 17 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jan 26 2000
STATUS
approved