OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..498
MAPLE
a[1]:=1: for n from 2 to 30 do a[n]:=gcd(a[n-1], n)+lcm(a[n-1], n) od: seq(a[n], n=1..27); # Emeric Deutsch, Apr 13 2007
MATHEMATICA
k = 1; Do[Print[k]; k = GCD[k, n] + LCM[k, n], {n, 2, 30}] (* Ryan Propper, Apr 07 2007 *)
nxt[{n_, a_}]:={n+1, GCD[a, n+1]+LCM[a, n+1]}; NestList[nxt, {1, 1}, 30][[All, 2]] (* Harvey P. Dale, Apr 19 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 29 2007
EXTENSIONS
More terms from Ryan Propper and Emeric Deutsch, Apr 07 2007
STATUS
approved