OFFSET
0,3
MAPLE
A152445 := proc(n) option remember ; if n <= 1 then 1; else nextprime(procname(n-1)*procname(n-2)-1) ; fi; end: for n from 0 to 15 do printf("%d, ", A152445(n)) ; od; # R. J. Mathar, Dec 05 2008
MATHEMATICA
a = {1, 1, 2, 2}; Do[AppendTo[a, Prime[PrimePi[a[[ -1]]*a[[ -2]]] + 1]], {7}]; a (* Stefan Steinerberger, Dec 06 2008 *)
nxt[{a_, b_}]:={b, NextPrime[a*b-1]}; NestList[nxt, {1, 1}, 15][[All, 1]] (* Harvey P. Dale, Jun 30 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 04 2008
EXTENSIONS
STATUS
approved