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!)
A175947 A175945(n)-A175946(n). 0
1, 0, 3, -2, 1, 2, 7, -6, -1, 0, 3, 0, 5, 6, 15, -14, -5, -4, 1, -2, 3, 2, 7, -4, 3, 4, 11, 4, 13, 14, 31, -30, -13, -12, -3, -10, -1, -2, 5, -6, 1, 0, 9, 0, 7, 6, 15, -12, -1, 0, 9, 2, 11, 10, 23, 0, 11, 12, 27, 12, 29, 30, 63, -62, -29, -28, -11, -26, -9, -10, 1, -22, -7, -8, 5, -8 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Table of n, a(n) for n=1..76.

MATHEMATICA

takelist[l_, t_] := Module[{lent, term}, Set[lent, Length[t]]; Table[l[[t[[y]]]], {y, 1, lent}]]

frombinrep[x_] := FromDigits[Flatten[Table[Table[If[OddQ[n], 1, 0], {d, 1, x[[n]]}], {n, 1, Length[x]}]], 2]

binrep[x_] := repcount[IntegerDigits[x, 2]]

onebinrep[x_]:=Module[{b}, b=binrep[x]; takelist[b, Range[1, Length[b], 2]]]

zerobinrep[x_]:=Module[{b}, b=binrep[x]; takelist[b, Range[2, Length[b], 2]]]

Table[frombinrep[onebinrep[n]], {n, START, END}]-Table[frombinrep[zerobinrep[n]], {n, START, END}]

CROSSREFS

Sequence in context: A136531 A127318 A274512 * A085068 A265027 A079587

Adjacent sequences:  A175944 A175945 A175946 * A175948 A175949 A175950

KEYWORD

base,sign

AUTHOR

Dylan Hamilton, Oct 28 2010

STATUS

approved

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 16 21:46 EST 2020. Contains 331975 sequences. (Running on oeis4.)