OFFSET
0,5
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..10000
EXAMPLE
4 = 100_2 so a(4) = 2.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 22 2016
STATUS
approved