OFFSET
1,2
COMMENTS
The definition refers to the nextprime() function in A007918.
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
Paul D. Hanna, May 30 2003
STATUS
approved