A123505 Lengths of bit runs in A123504.

1, 2, 1, 2, 2, 2, 3, 3, 5, 6, 7, 8, 11, 14, 17, 21, 26, 34, 41, 51, 65, 80, 101, 125, 157, 196, 245, 305, 381, 477, 595, 743, 927, 1159, 1448, 1807, 2258, 2819, 3521, 4397, 5492, 6859, 8565, 10698, 13361, 16685, 20839, 26026, 32503, 40593, 50697, 63315, 79074

Offset: 2

Author

Gary W. Adamson, Oct 01 2006

Keywords

• nonn

Comments

A123507 records the bit runs of A123506 and uses the second zero in an analogous operation.

Record the numbers of consecutive bit runs of A123504, see example.

Examples

			A123504 = 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1...; therefore the numbers of bit runs are 1, 2, 1, 2, 2, 2, 3, ...
		

Crossrefs

Cf. A100060, A102522, A102523, A123504, A123506, A123507.

Programs

Mathematica

Length /@ Split[Table[Boole[Arg[1/n^ZetaZero[1]] > 0], {n, 2, 10^6}]] (* Amiram Eldar, May 31 2025 *)

Extensions

More terms from Amiram Eldar, May 31 2025