|
%I #8 Mar 17 2017 17:39:31
%S 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,
%T 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,
%U 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
%N Lengths of runs of successive zeros in A283683.
%H Ivan Neretin, <a href="/A283325/b283325.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%Y Cf. A283683.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Mar 16 2017
%E Initial 1 added by _Ivan Neretin_, Mar 17 2017
|
