OFFSET
1,2
LINKS
MATHEMATICA
Module[{nn=30, p}, p=PartitionsP[Range[nn]]; Table[LCM@@Take[p, n], {n, nn}]] (* Harvey P. Dale, Apr 14 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 16 2004
STATUS
approved