login
A112812
a(n) is length of n-th run in A110566.
1
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,1
MATHEMATICA
f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Length /@ Split[Table[f[n], {n, 1220}]]
CROSSREFS
Sequence in context: A220129 A192039 A305327 * A241624 A159275 A374990
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