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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A147813 Primes prime(n) such that (-prime(n) + 2*prime(n+1) - prime(n+2))/((1 - prime(n) + prime(n+1))^(3/2)) < 0. 3
2, 3, 5, 11, 17, 19, 29, 41, 43, 47, 59, 71, 79, 83, 101, 107, 109, 127, 137, 149, 151, 163, 167, 179, 191, 197, 199, 227, 229, 239, 251, 257, 269, 281, 283, 311, 313, 331, 347, 349, 353, 367, 379, 383, 397, 401, 419, 431, 439, 443, 461, 463, 487, 499, 503, 521 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

FORMULA

Primes prime(n) such that (-prime(n) + 2*prime(n+1) - prime(n+2))/((1 - prime(n) + prime(n+1))^(3/2)) < 0.

MATHEMATICA

d2[n_] = Prime[n + 2] - 2*Prime[n + 1] + Prime[n]; d1[n_] = Prime[n + 1] - Prime[n]; k[n_] = -d2[n]/(1 + d1[n])^(3/2); Flatten[Table[If[k[n]<= 0, Prime[n], {}], {n, 1, 100}]]

PROG

(Haskell)

import Data.List (findIndices)

a147813 n = a147813_list !! (n-1)

a147813_list = map (a000040 . (+ 1)) $ findIndices (>= 0) a036263_list

-- Reinhard Zumkeller, Jan 20 2012

CROSSREFS

Cf. A036263, A147812 (complement with respect to A000040).

Sequence in context: A040083 A045308 A245639 * A274386 A079545 A154755

Adjacent sequences:  A147810 A147811 A147812 * A147814 A147815 A147816

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Nov 13 2008

EXTENSIONS

Edited by Alonso del Arte and Joerg Arndt, Nov 01 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 22 06:14 EDT 2019. Contains 322329 sequences. (Running on oeis4.)