|
| |
|
|
A088161
|
|
n rotated one binary place to the right less n rotated one binary place to the left.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A114907 A131732 A198826 * A005874 A129239 A127571
Adjacent sequences: A088158 A088159 A088160 * A088162 A088163 A088164
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 13 2003
|
| |
|
|
