|
|
A239900
|
|
a(0)=2, a(1)=5; thereafter a(n) = product of all preceding terms, plus 1.
|
|
3
|
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
nxt[{t_, a_}]:=Module[{k=t+1}, {t k, k}]; Join[{2}, NestList[nxt, {10, 5}, 7][[All, 2]]] (* Harvey P. Dale, Oct 25 2020 *)
|
|
PROG
|
(Magma) I:=[2, 5, 11]; [n le 3 select I[n] else Self(n-1)*(Self(n-1)-1)+1: n in [1..10]]; // Vincenzo Librandi, May 22 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|