A088161 - OEIS

%I #2 Mar 30 2012 17:30:55

%S 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,

%T -11,3,-14,0,15,45,12,42,9,39,6,36,3,33,0,30,-3,27,-6,24,-9,21,-12,18,

%U -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

%N n rotated one binary place to the right less n rotated one binary place to the left.

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

%F A038572(n) - A006257(n).

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

%Y Cf.

%K sign

%O 0,6

%A _Robert G. Wilson v_, Sep 13 2003