|
%I #10 Mar 02 2016 11:31:51
%S 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,
%T 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,
%U 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
%N First differences of A014486.
%H Alois P. Heinz, <a href="/A085192/b085192.txt">Table of n, a(n) for n = 0..23712</a>
%F a(n) = A014486(n+1) - A014486(n).
%t 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 *)
%Y Repeating part: A085193.
%K nonn
%O 0,1
%A _Antti Karttunen_, Jun 14 2003
|
