|
%I #4 Mar 31 2012 20:25:48
%S 0,0,0,-2,0,2,0,-6,-2,0,-2,0,4,6,0,-14,-6,-4,-8,2,0,-2,-6,-4,2,4,6,4,
%T 12,14,0,-30,-14,-12,-20,-6,-12,-14,-20,6,6,0,2,0,-4,-6,-14,-12,-2,0,
%U 0,14,8,6,10,0,10,12,22,12,28,30,0,-62,-30,-28,-44,-22,-36,-38,-48,-10,-18
%N A175948(n)-A175949(n).
%C A difference between two ways of encoding-decoding run lengths of 0's and 1's in the binary representation of n.
%t takelist[l_, t_] := Module[{lent, term},Set[lent, Length[t]]; Table[l[[t[[y]]]], {y, 1, lent}]]
%t frombinrep[x_] := FromDigits[Flatten[Table[Table[If[OddQ[n], 1, 0], {d, 1, x[[n]]}], {n, 1, Length[x]}]], 2]
%t binrep[x_] := repcount[IntegerDigits[x, 2]]
%t onebinrep[x_]:=Module[{b},b=binrep[x];takelist[b,Range[1,Length[b],2]]]
%t zerobinrep[x_]:=Module[{b},b=binrep[x];takelist[b,Range[2,Length[b],2]]]
%t Table[frombinrep[Flatten[{onebinrep[n], zerobinrep[n]}]], {n,START,END}]-Table[frombinrep[Flatten[{zerobinrep[n], onebinrep[n]}]], {n,START,END}]
%K sign,base,less
%O 1,4
%A _Dylan Hamilton_, Oct 28 2010
|
