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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A084571 Let a(1)=1; for n>1, a(n)=nextprime((3/2)*a(n-1)). 1
1, 2, 3, 5, 11, 17, 29, 47, 71, 107, 163, 251, 379, 569, 857, 1289, 1949, 2927, 4391, 6599, 9901, 14867, 22303, 33457, 50207, 75323, 112997, 169501, 254257, 381389, 572087, 858149, 1287233, 1930879, 2896319, 4344479, 6516739, 9775111, 14662727 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

The definition refers to the nextprime() function in A007918.

LINKS

Table of n, a(n) for n=1..39.

MATHEMATICA

Join[{1, 2}, NestList[NextPrime[(3/2)*#]&, 3, 36]] (* Jayanta Basu, May 26 2013 *)

PROG

(PARI) a(n)=if(n<2, 1, nextprime((3/2)*a(n-1))); for(n=1, 50, print1(a(n), ", "))

CROSSREFS

Cf. A084572.

Sequence in context: A063091 A124588 A059428 * A055498 A073021 A258185

Adjacent sequences:  A084568 A084569 A084570 * A084572 A084573 A084574

KEYWORD

nonn

AUTHOR

Paul D. Hanna, May 30 2003

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 May 26 07:44 EDT 2019. Contains 323579 sequences. (Running on oeis4.)