OFFSET
0,2
COMMENTS
Largest term in row n of A246830.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[Max[FromDigits[#, 2]&/@Table[Join[IntegerDigits[n-k, 2], IntegerDigits[ n+k, 2]], {k, 0, n}]], {n, 0, 50}] (* Harvey P. Dale, Oct 02 2018 *)
PROG
(Haskell)
a246520 = maximum . a246830_row
(Python)
def A246520(n):
....return(max(int(bin(n-k)[2:]+bin(n+k)[2:], 2) for k in range(n+1)))
# Chai Wah Wu, Sep 07 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Sep 04 2014
STATUS
approved