OFFSET
1,1
MATHEMATICA
Prime[Select[Range[100], Prime[#]^2 - Prime[# + 2]Prime[# - 2] < 0 &]]
Select[Partition[Prime[Range[120]], 5, 1], #[[3]]^2-#[[5]] #[[1]]<0&][[All, 3]] (* Harvey P. Dale, Jan 08 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula and Gary W. Adamson, May 23 2008
EXTENSIONS
Edited by N. J. A. Sloane, May 23 2008
STATUS
approved