OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
419,421 = twin primes -- isolation +- 6 (or more)
419-2 = 417 (3*139) 421+2 = 423 (3*3*47)
419-4 = 415 (5*83) 421+4 = 425 (5*5*17)
419-6 = 413 (7*59) 421+6 = 427 (7*61)
MATHEMATICA
q=6; s=""; For[i=1, i<10^2*5, n=Prime[i]; m=n+2; If[PrimeQ[m], a=0; For[j=2, j<=q, If[PrimeQ[n-j]||PrimeQ[m+j], a=1; Break[]]; j=j+2]; If[a==0, s=s<>ToString[n]<>", "]]; i++ ]; Print[s]
tp6Q[b_]:=Module[{d=Differences[b]}, d[[2]]==2&&d[[1]]>6&&d[[3]]>6]; Transpose[ Select[Partition[Prime[Range[1000]], 4, 1], tp6Q]][[2]] (* Harvey P. Dale, Jan 10 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 02 2008
EXTENSIONS
Definition corrected by and more terms from Harvey P. Dale, Jan 10 2015
STATUS
approved