1,1

Table of n, a(n) for n=1..87.

f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Length /@ Split[Table[f[n], {n, 1220}]]

Cf. A110566, A112811.

Sequence in context: A220129 A192039 A305327 * A241624 A159275 A059031

Adjacent sequences: A112809 A112810 A112811 * A112813 A112814 A112815

nonn

Robert G. Wilson v, Sep 20 2005

Edited by Don Reble, Nov 08 2005

Definition clarified by Omar E. Pol, Dec 26 2008

approved