OFFSET
0,1
LINKS
Robert Munafo, Some integer sequences
Robert Munafo, Mutually coprime sequences
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
N. J. A. Sloane, Apr 05 2014
EXTENSIONS
a(6) corrected by Harvey P. Dale, Oct 25 2020
STATUS
approved