OFFSET
0,3
COMMENTS
In both this sequence and A246594 you are not allowed to touch any of the invisible 0's before the leading 1.
Swap first 0 with last 1 in the binary expansion of n or return n if no such swap is possible. - Chai Wah Wu, Sep 08 2014
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..8192
EXAMPLE
If n = 17 = 10001_2 then a(17) = 11000_2 = 24.
PROG
(Python)
from itertools import combinations
def A246593(n):
....if n <= 1:
........return n
....else:
........s, y = bin(n)[2:], n
........for i in combinations(range(len(s)), 2):
............s2 = int(s[:i[0]]+s[i[1]]+s[i[0]+1:i[1]]+s[i[0]]+s[i[1]+1:], 2)
............if s2 > y:
................y = s2
........return y
# Chai Wah Wu, Sep 05 2014
(Python)
# implement algorithm in comment
def A246593(n):
....s = bin(n)[2:]
....s2 = s.rstrip('0')
....s3 = s2.lstrip('1')
....return(int(s2[:-len(s3)]+'1'+s3[1:-1]+'0'+s[len(s2):], 2) if (len(s3) > 0 and n > 1) else n)
# Chai Wah Wu, Sep 08 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 03 2014
EXTENSIONS
Corrected definition and more terms from Alois P. Heinz, Sep 04 2014
STATUS
approved