|
%I #16 Feb 15 2017 09:41:32
%S 1,0,1,0,2,1,1,0,3,2,1,1,2,1,1,0,4,3,2,2,1,1,1,1,3,2,1,1,2,1,1,0,5,4,
%T 3,3,2,2,2,2,1,1,1,1,1,1,1,1,4,3,2,2,1,1,1,1,3,2,1,1,2,1,1,0,6,5,4,4,
%U 3,3,3,3,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%N Length of first run of 0's in binary expansion of n.
%H Vincenzo Librandi, <a href="/A279209/b279209.txt">Table of n, a(n) for n = 0..10000</a>
%e 4 = 100_2 so a(4) = 2.
%t Table[First[Map[Length, DeleteCases[Split@IntegerDigits[n, 2], w_/;Times@@w>0]]/.{}->{0}], {n, 0, 200}] (* _Vincenzo Librandi_, Dec 23 2016 *) (* after _Michael De Vlieger_ *)
%Y Cf. A090996, A279210.
%K nonn,base
%O 0,5
%A _N. J. A. Sloane_, Dec 22 2016
|
