OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..2000 from Vincenzo Librandi)
MATHEMATICA
f[n_]:=Max[Last/@FactorInteger[n]]; lst={}; Do[p=Prime[n]; If[f[p-1]>=4&&f[p+1]>=4, AppendTo[lst, p]], {n, 8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Oct 03 2009 *)
dfpQ[n_]:=Max[Transpose[FactorInteger[n]][[2]]]>3; Select[Prime[Range[ 6500]], dfpQ[#-1]&&dfpQ[#+1]&] (* Harvey P. Dale, May 11 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jason Earls, Jul 28 2003
STATUS
approved