|
| |
|
|
A088163
|
|
Numbers for which rotating one binary place to the right less rotating one binary place to the left is equal to zero.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| 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.
Sequence in context: A002238 A002255 A192116 * A048448 A054060 A024832
Adjacent sequences: A088160 A088161 A088162 * A088164 A088165 A088166
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 13 2003
|
| |
|
|
