Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A139811
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
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.

Adjacent sequences: A139808 A139809 A139810 this_sequence A139812 A139813 A139814

Sequence in context: A139580 A094841 A001986 this_sequence A095101 A095086 A095079

KEYWORD

nonn

AUTHOR

Roger Bagula and Gary W. Adamsom (rlbagulatftn(AT)yahoo.com), May 23 2008

EXTENSIONS

Edited by njas, May 23 2008

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified October 6 16:13 EDT 2008. Contains 144667 sequences.


AT&T Labs Research