OFFSET
1,2
COMMENTS
n and a(n-1) divide a(n).
MATHEMATICA
a[1] = 1; a[n_] := a[n]=2 LCM (n, a[n - 1]); Table[a[n], {n, 100}]
RecurrenceTable[{a[1]==1, a[n]==2*LCM[n, a[n-1]]}, a, {n, 30}] (* Harvey P. Dale, Dec 10 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jun 16 2011
STATUS
approved