A139812 Primes prime(k) such that prime(k)^2 > prime(k-2)*prime(k+2).

5, 7, 11, 13, 17, 23, 29, 31, 37, 41, 53, 59, 67, 71, 97, 101, 103, 107, 127, 131, 149, 151, 163, 173, 179, 191, 193, 223, 227, 251, 257, 263, 269, 277, 307, 311, 331, 337, 347, 349, 367, 373, 379, 397, 409, 419, 421, 431, 433, 457, 461, 479, 487, 491, 499, 541

Offset

1,1

Comments

These primes are at the next level higher beyond good and bad primes. Bad primes come from modular forms and L-Series theory.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Wikipedia, Arithmetic of elliptic curves

Mathematica

Flatten[Table[If[Prime[n]^2 - Prime[n + 2]*Prime[n - 2] > 0, Prime[n], {}], {n, 3, 100}]]

Crossrefs

Cf. A028388, A130903.

Sequence in context: A216751 A216741 A290507 * A180951 A040146 A243593

Adjacent sequences: A139809 A139810 A139811 * A139813 A139814 A139815

Keyword

nonn

Author

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

Extensions

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

Status

approved