OFFSET
0,2
MATHEMATICA
nn=40; With[{sig=DivisorSigma[1, Range[nn]]}, Table[LCM@@Take[sig, n], {n, nn}]] (* Harvey P. Dale, Nov 15 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved