OFFSET
1,2
COMMENTS
MATHEMATICA
f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Flatten[Union /@ Split[Table[f[n], {n, 703}]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2005
STATUS
approved