%I A088162
%S A088162 0,0,3,0,6,3,21,18,12,3,0,39,33,30,24,15,6,3,90,84,81,72,66,57,45,39,36,
%T A088162 30,27,21,0,186,177,174,159,156,147,138,132,123,114,111,96,93,87,84,66,
%U A088162 48,42,39,33,24,21,6,381,372,363,360,351,345,342,327,306,300,297,291
%N A088162 n-th prime rotated one binary place to the right less the n-th prime 
               rotated one binary place to the left.
%C A088162 Can never be negative and equals zero iff p is 2 or a Mersenne prime 
               (A000668).
%t A088162 f[n_] := FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2] - FromDigits[ 
               RotateLeft[ IntegerDigits[n, 2]], 2]; Table[ f[ Prime[n]], {n, 1, 
               70}]
%Y A088162 Cf. A088146 - A088147.
%Y A088162 Sequence in context: A120008 A162197 A051021 this_sequence A133170 A062542 
               A109693
%Y A088162 Adjacent sequences: A088159 A088160 A088161 this_sequence A088163 A088164 
               A088165
%K A088162 nonn
%O A088162 1,3
%A A088162 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 13 2003