OFFSET
1,2
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..200
FORMULA
MAPLE
a := proc(n) option remember: if(n=1)then return 1:fi: return n*lcm(n, a(n-1)): end: seq(a(n), n=1..19); # Nathaniel Johnston, Jun 26 2011
MATHEMATICA
a[1]=1; a[n_]:=a[n]=n LCM[n, a[n-1]];
Table[a[n], {n, 1, 20}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
José María Grau Ribas, Jun 25 2011
STATUS
approved