login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A139811 Primes Prime[n] such that Prime[n]^2 - Prime[n + 2]*Prime[n - 2] < 0. 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 (list; graph; refs; listen; history; internal format)
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 * A095101 A162856 A095086

Adjacent sequences:  A139808 A139809 A139810 * 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 15 09:47 EST 2012. Contains 205762 sequences.