login
A246520
Largest number that can be written in binary as concatenation of (n - k) and (n + k), 0 <= k <= n.
3
0, 3, 10, 20, 36, 45, 72, 104, 136, 153, 170, 208, 272, 336, 400, 464, 528, 561, 594, 627, 660, 693, 800, 928, 1056, 1184, 1312, 1440, 1568, 1696, 1824, 1952, 2080, 2145, 2210, 2275, 2340, 2405, 2470, 2535, 2600, 2665, 2730, 2880, 3136, 3392, 3648, 3904
OFFSET
0,2
COMMENTS
Largest term in row n of A246830.
LINKS
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
Cf. A246830, A007088, A246701 (first dfferences).
Sequence in context: A194116 A208951 A299692 * A338631 A272764 A293765
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Sep 04 2014
STATUS
approved