%I A088163
%S A088163 0,1,2,3,7,10,15,31,42,63,127,170,255,511,682,1023,2047,2730,4095,8191,
%T A088163 10922,16383,32767,43690,65535,131071,174762,262143,524287,699050,
%U A088163 1048575,2097151,2796202,4194303,8388607,11184810,16777215,33554431
%N A088163 Numbers for which rotating one binary place to the right less rotating 
               one binary place to the left is equal to zero.
%C A088163 n is a member iff n is of the form 2^n -1 (A000225) or A000975(2n).
%F A088163 n's when A038572(n) - A006257(n) = A088161(n) = 0.
%t A088163 f[n_] := FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2] - FromDigits[ 
               RotateLeft[ IntegerDigits[n, 2]], 2]; Select[ Range[33560000], f[ 
               # ] == 0 &]
%t A088163 (* Or *) Union[ Join[ Table[2^n - 1, {n, 0, 25}], Table[ Ceiling[2(2^n 
               - 1)/3], {n, 2, 24, 2}]]]
%Y A088163 Cf. A000225, A000975.
%Y A088163 Sequence in context: A101956 A002238 A002255 this_sequence A048448 A054060 
               A024832
%Y A088163 Adjacent sequences: A088160 A088161 A088162 this_sequence A088164 A088165 
               A088166
%K A088163 nonn
%O A088163 0,3
%A A088163 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 13 2003