login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A175950 A175948(n)-A175949(n). 0

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 28 23:19 EST 2020. Contains 332353 sequences. (Running on oeis4.)