%I #10 Aug 09 2019 05:02:52
%S 2,15,323,111547,12449873237,154999344563559225589,
%T 24024796815132956872884975543558130445497
%N Product of next 2 primes.
%F a(n) = A030661(a(n-1)). - _R. J. Mathar_, Aug 09 2019
%p A030642 := proc(n)
%p option remember ;
%p if n = 1 then
%p 2;
%p else
%p A030661(procname(n-1)) ;
%p end if;
%p end proc:
%p seq(A030642(n),n=1..6) ; _R. J. Mathar_, Aug 09 2019
%t NestList[NextPrime[#] NextPrime[NextPrime[#]]&,2,10] (* _Harvey P. Dale_, Jul 26 2017 *)
%Y Cf. A000040, A030641.
%K nonn
%O 1,1
%A _N. J. A. Sloane_.
|