%I
%S 5,3,9,2,1,3,1,2,6,9,2,5,5,9,3,3,3,5,4,7,12,5,5,10,1,4,31,6,7,20,9,9,
%T 9,27,29,17,5,7,35,6,1,18,2,14,29,29,29,20,2,14,6,19,4,30,8,27,6,2,8,
%U 11,4,4,19,18,5,14,18,26,11,72,10,19,6,11,22,11,33,6,5,22,4,7,99,97,2,44,9
%N a(n) is length of nth run in A110566.
%t f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Length /@ Split[Table[f[n], {n, 1220}]]
%Y Cf. A110566, A112811.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Sep 20 2005
%E Edited by _Don Reble_, Nov 08 2005
%E Definition clarified by _Omar E. Pol_, Dec 26 2008
