login
A279209
Length of first run of 0's in binary expansion of n.
5
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, 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, 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
OFFSET
0,5
LINKS
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
Sequence in context: A097230 A144789 A285097 * A087117 A029340 A288166
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 22 2016
STATUS
approved