login
A195065
Numbers n such that BCR(n) is greater than n, where BCR = binary-complement-and-reverse = A036044.
5
0, 4, 8, 16, 18, 20, 24, 32, 34, 36, 40, 44, 48, 64, 66, 68, 70, 72, 74, 76, 80, 82, 84, 88, 92, 96, 100, 104, 112, 128, 130, 132, 134, 136, 138, 140, 144, 146, 148, 152, 154, 156, 160, 162, 164, 168, 172, 176, 180, 184, 188, 192, 196, 200, 208, 216, 224
OFFSET
1,2
COMMENTS
A035928(a(n)) > n.
LINKS
PROG
(Haskell)
a195065 n = a195065_list !! (n-1)
a195065_list = filter (\x -> a036044 x > x) [0, 2..]
(Python)
def comp(s): z, o = ord('0'), ord('1'); return s.translate({z:o, o:z})
def BCR(n): return int(comp(bin(n)[2:])[::-1], 2)
def aupto(limit): return [m for m in range(limit+1) if BCR(m) > m]
print(aupto(224)) # Michael S. Branicky, Jun 14 2021
CROSSREFS
Complement of A195064; subsequence of A195066.
Sequence in context: A312765 A065192 A161994 * A312766 A312767 A312768
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Sep 16 2011
STATUS
approved