%I #16 Jan 08 2019 18:08:49
%S 19,43,47,61,73,79,83,89,109,113,137,139,157,167,181,197,199,211,229,
%T 233,239,241,271,281,283,293,313,317,353,359,383,389,401,439,443,449,
%U 463,467,503,509,521,523
%N Primes prime(n) such that prime(n)^2 - prime(n + 2)*prime(n - 2) < 0.
%t Prime[Select[Range[100], Prime[#]^2 - Prime[# + 2]Prime[# - 2] < 0 &]]
%t Select[Partition[Prime[Range[120]],5,1],#[[3]]^2-#[[5]] #[[1]]<0&][[All,3]] (* _Harvey P. Dale_, Jan 08 2019 *)
%Y Cf. A130903.
%K nonn,easy
%O 1,1
%A _Roger L. Bagula_ and _Gary W. Adamson_, May 23 2008
%E Edited by _N. J. A. Sloane_, May 23 2008