OFFSET
1,2
MAPLE
a:=[1];
L:=1;
for n from 2 to 50 do
if igcd(n, L)=1 then L:=n*L; fi;
a:=[op(a), L];
od:
a; # - N. J. A. Sloane, Sep 15 2021
MATHEMATICA
nxt[{n_, a_}]:={n+1, If[GCD[n+1, a]==1, a(n+1), a]}; NestList[nxt, {1, 1}, 40][[All, 2]] (* Harvey P. Dale, Sep 16 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 19 2003
EXTENSIONS
Corrected and extended by Harvey P. Dale, Sep 16 2021
STATUS
approved