OFFSET
1,1
MATHEMATICA
f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Length /@ Split[Table[f[n], {n, 1220}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2005
EXTENSIONS
Edited by Don Reble, Nov 08 2005
Definition clarified by Omar E. Pol, Dec 26 2008
STATUS
approved