|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|