A088161 n rotated one binary place to the right less n rotated one binary place to the left.

0, 0, 0, 0, 1, 3, -2, 0, 3, 9, 0, 6, -3, 3, -6, 0, 7, 21, 4, 18, 1, 15, -2, 12, -5, 9, -8, 6, -11, 3, -14, 0, 15, 45, 12, 42, 9, 39, 6, 36, 3, 33, 0, 30, -3, 27, -6, 24, -9, 21, -12, 18, -15, 15, -18, 12, -21, 9, -24, 6, -27, 3, -30, 0, 31, 93, 28, 90, 25, 87, 22, 84, 19, 81, 16, 78, 13, 75, 10, 72, 7, 69, 4

Offset

0,6

Comments

f(n) is negative about 2/7 of the time to 10^7. f(n) is zero, see A008148

Links

Table of n, a(n) for n=0..82.

Formula

A038572(n) - A006257(n).

Mathematica

f[n_] := FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2] - FromDigits[ RotateLeft[ IntegerDigits[n, 2]], 2]; Table[ f[n], {n, 0, 82}]

Crossrefs

Cf.

Sequence in context: A307681 A331922 A198826 * A005874 A275622 A129239

Adjacent sequences: A088158 A088159 A088160 * A088162 A088163 A088164

Keyword

sign

Author

Robert G. Wilson v, Sep 13 2003

Status

approved