OFFSET
1,1
COMMENTS
A154809 written in base 2.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Map[FromDigits, Select[IntegerDigits[Range[50], 2], !PalindromeQ[#] &]] (* Paolo Xausa, Jul 24 2024 *)
PROG
(Python)
def A154810(n):
def f(x): return n+(x>>(l:=x.bit_length())-(k:=l+1>>1))-(int(bin(x)[k+1:1:-1], 2)>(x&(1<<k)-1))+(1<<k-1+(l&1^1))-1
m, k = n, f(n)
while m != k:
m, k = k, f(k)
return int(bin(m)[2:]) # Chai Wah Wu, Jul 24 2024
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Omar E. Pol, Jan 24 2009
EXTENSIONS
Extended by Ray Chandler, Mar 14 2010
STATUS
approved