OFFSET
1,1
COMMENTS
LINKS
Jonathan Frech, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+d]&& !Equal[s1-s, d], Print[s]], {n, 1, 1000}]; d=12
ncpQ[n_]:=Module[{c=n+12}, PrimeQ[c]&&NextPrime[n]!=c]; Select[Prime[ Range[ 150]], ncpQ] (* Harvey P. Dale, May 03 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 28 2003
STATUS
approved