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