Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A088161
n rotated one binary place to the right less n rotated one binary place to the left.
4
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
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
KEYWORD
sign
AUTHOR
Robert G. Wilson v, Sep 13 2003
STATUS
approved