%I #12 May 28 2013 12:17:11
%S 1,2,3,5,11,17,29,47,71,107,163,251,379,569,857,1289,1949,2927,4391,
%T 6599,9901,14867,22303,33457,50207,75323,112997,169501,254257,381389,
%U 572087,858149,1287233,1930879,2896319,4344479,6516739,9775111,14662727
%N Let a(1)=1; for n>1, a(n)=nextprime((3/2)*a(n-1)).
%C The definition refers to the nextprime() function in A007918.
%t Join[{1,2},NestList[NextPrime[(3/2)*#]&,3,36]] (* _Jayanta Basu_, May 26 2013 *)
%o (PARI) a(n)=if(n<2,1,nextprime((3/2)*a(n-1))); for(n=1,50,print1(a(n),","))
%Y Cf. A084572.
%K nonn
%O 1,2
%A _Paul D. Hanna_, May 30 2003
|