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,1

Links

Table of n, a(n) for n=1..42.

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

Cf. A130903.

Sequence in context: A094841 A001986 A270123 * A095101 A162856 A095086

Adjacent sequences: A139808 A139809 A139810 * A139812 A139813 A139814

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