A283325 Lengths of runs of successive zeros in A283683.

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

Offset

1,2

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Mathematica

Take[Length /@ Most@Split@ Nest[Flatten@ Table[#[[n - i]], {n, Length[#] + 1}, {i, n - 1}] &, {0, 1}, 4], {1, -1, 2}] (* Ivan Neretin, Mar 17 2017 *)

Crossrefs

Cf. A283683.

Sequence in context: A224965 A194298 A194306 * A353707 A318438 A294233

Adjacent sequences: A283322 A283323 A283324 * A283326 A283327 A283328

Keyword

nonn

Author

N. J. A. Sloane, Mar 16 2017

Extensions

Initial 1 added by Ivan Neretin, Mar 17 2017

Status

approved