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,1

Links

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

Mathematica

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

Crossrefs

Cf. A110566, A112811.

Sequence in context: A220129 A192039 A305327 * A241624 A159275 A059031

Adjacent sequences: A112809 A112810 A112811 * A112813 A112814 A112815

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