A102523 Lengths of runs in A100060.

1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 3, 1, 2, 1, 1, 1, 1, 2, 1, 3, 2, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 3, 1, 3, 1, 1, 2, 1, 2

Offset

1,6

Comments

The first case of exactly n consecutive ones occurs in A100060 at 1, 10, 16, 688, 1246, 29237, 13898, ....

The first case of exactly n consecutive zeros occurs in A100060 at 2, 6, 29, 276, 1529, 34277, ....

Links

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

Mathematica

zz = { (* the list of values in the link *) }; yy = Drop[zz, 1] - Drop[zz, -1]; xx = Drop[yy, 1] - Drop[yy, -1]; Length /@ Split[Join[{1}, Table[ If[xx[[n]] > 0, 1, 0], {n, 145}]]]

Crossrefs

Cf. A100060, A102524.

Sequence in context: A107044 A141591 A174545 * A323023 A083415 A115514

Adjacent sequences: A102520 A102521 A102522 * A102524 A102525 A102526

Keyword

nonn

Author

Gary W. Adamson and Robert G. Wilson v, Jan 13 2005

Status

approved