OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[2, 122], Prime[#]^2 > Prime[# - 1]*Prime[# + 1] &] (* Jayanta Basu, Jun 29 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended by Don Reble, Nov 19 2006
STATUS
approved