OFFSET
1,1
COMMENTS
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2 because 3^2 < 2*5.
MATHEMATICA
Select[Range[2, 200], Prime[#]^2 < Prime[# - 1]*Prime[# + 1] &]
PrimePi[#]&/@Select[Partition[Prime[Range[200]], 3, 1], #[[2]]^2<(#[[1]] #[[3]])&][[All, 2]] (* Harvey P. Dale, Dec 09 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Dec 14 2013
STATUS
approved