|
| |
|
|
A139812
|
|
Primes Prime[n] such that Prime[n]^2 - Prime[n + 2]*Prime[n - 2] <> 0.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: http://en.wikipedia.org/wiki/Arithmetic_of_elliptic_curves:
|
|
|
REFERENCES
| Wikipedia, http://en.wikipedia.org/wiki/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. A130903, A028388.
Sequence in context: A120222 A054794 A104860 * A180951 A040146 A015914
Adjacent sequences: A139809 A139810 A139811 * A139813 A139814 A139815
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula and Gary W. Adamsom (rlbagulatftn(AT)yahoo.com), May 23 2008
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), May 23 2008
|
| |
|
|
