|
| |
|
|
A102523
|
|
Lengths of runs in A100060.
|
|
5
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
COMMENTS
| The first case of just n consecutive ones occur in A100060 at: 1, 10, 16, 688, 1246, 29237, 13898, ...,.
The first case of just n consecutive zeros occur in A100060 at: 2, 6, 29, 276, 1529, 34277, ...,.
|
|
|
MATHEMATICA
| zz = { (* the list of values in the hyper 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 * A083415 A115514 A122632
Adjacent sequences: A102520 A102521 A102522 * A102524 A102525 A102526
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Gary W. Adamson (qntmpkt(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 13 2005
|
| |
|
|
