|
Search: id:A139811
|
|
|
| A139811 |
|
Primes Prime[n] such that Prime[n]^2 - Prime[n + 2]*Prime[n - 2] < 0. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Flatten[Table[If[Prime[n]^2 - Prime[n + 2]*Prime[n - 2] < 0, Prime[n], {}], {n, 3, 100}]]
|
|
CROSSREFS
|
Cf. A130903.
Sequence in context: A156897 A094841 A001986 this_sequence A095101 A162856 A095086
Adjacent sequences: A139808 A139809 A139810 this_sequence A139812 A139813 A139814
|
|
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
|
|
|
Search completed in 0.002 seconds
|
