A175947 A175945(n)-A175946(n).

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

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: A362689 A349930 A274512 * A085068 A265027 A079587

Adjacent sequences: A175944 A175945 A175946 * A175948 A175949 A175950

Keyword

base,sign

Author

Dylan Hamilton, Oct 28 2010

Status

approved