A085192 First differences of A014486.

2, 8, 2, 30, 2, 6, 2, 4, 114, 2, 6, 2, 4, 18, 2, 6, 2, 4, 10, 2, 4, 8, 442, 2, 6, 2, 4, 18, 2, 6, 2, 4, 10, 2, 4, 8, 58, 2, 6, 2, 4, 18, 2, 6, 2, 4, 10, 2, 4, 8, 26, 2, 6, 2, 4, 10, 2, 4, 8, 18, 2, 4, 8, 16, 1738, 2, 6, 2, 4, 18, 2, 6, 2, 4, 10, 2, 4, 8, 58, 2, 6, 2, 4, 18, 2, 6, 2, 4, 10, 2, 4, 8, 26

Offset

0,1

Links

Alois P. Heinz, Table of n, a(n) for n = 0..23712

Formula

a(n) = A014486(n+1) - A014486(n).

Mathematica

okQ[n_] := Module[{bb = IntegerDigits[n, 2], cnt=0}, For[k=1, k <= Length[ bb], k++, cnt = cnt + If[bb[[k]]==1, 1, -1]; okQ[0] = True; If[cnt < 0, Return[False]]]; cnt==0]; Select[Range[0, 10^4], okQ] // Differences (* Jean-François Alcover, Mar 02 2016 *)

Crossrefs

Repeating part: A085193.

Sequence in context: A183037 A063077 A245995 * A320972 A273692 A006085

Adjacent sequences: A085189 A085190 A085191 * A085193 A085194 A085195

Keyword

nonn

Author

Antti Karttunen, Jun 14 2003

Status

approved