OFFSET
1,1
COMMENTS
Prime numbers prime(n) such that A051702(n) exceeds 10. - Stefan Steinerberger, May 02 2008
MATHEMATICA
q=10; s=""; For[i=1, i<12^2, p=Prime[i]; a=0; For[j=2, j<=q, If[PrimeQ[p-j]||PrimeQ[p+j], a=1; Break[]]; j=j+2]; If[a==0, s=s<>ToString[p]<>", "]; i++ ]; Print[s]
Prime[Select[Range[2, 1500], Prime[ # - 1] + 10 < Prime[ # ] < Prime[ # + 1] - 10 &]] (* Stefan Steinerberger, May 02 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 29 2008
EXTENSIONS
Edited and extended by Stefan Steinerberger, May 02 2008
Description edited by Ray Chandler, May 02 2009
STATUS
approved