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

Author

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

Keywords

• nonn

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

Crossrefs

Cf. A028388, A130903.

Programs

Mathematica

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

Extensions

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