A139811 Primes prime(n) such that prime(n)^2 - prime(n + 2)*prime(n - 2) < 0.

19, 43, 47, 61, 73, 79, 83, 89, 109, 113, 137, 139, 157, 167, 181, 197, 199, 211, 229, 233, 239, 241, 271, 281, 283, 293, 313, 317, 353, 359, 383, 389, 401, 439, 443, 449, 463, 467, 503, 509, 521, 523

Offset: 1

Author

Roger L. Bagula and Gary W. Adamson, May 23 2008

Keywords

• nonn
• easy

Crossrefs

Cf. A130903.

Programs

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 *)

Extensions

Edited by N. J. A. Sloane, May 23 2008