A112812 a(n) is length of n-th run in A110566.
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, 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, 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
Offset: 1
Keywords
Programs
-
Mathematica
f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Length /@ Split[Table[f[n], {n, 1220}]]
Extensions
Edited by Don Reble, Nov 08 2005
Definition clarified by Omar E. Pol, Dec 26 2008