%I #10 Sep 08 2014 02:58:18
%S 3,7,10,16,9,27,32,32,17,17,38,64,64,64,64,64,33,33,33,33,33,107,128,
%T 128,128,128,128,128,128,128,128,128,65,65,65,65,65,65,65,65,65,65,
%U 150,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,256,129,129
%N First differences of A246520.
%C a(n) = A246520(n+1) - A246520(n).
%H Reinhard Zumkeller, <a href="/A246701/b246701.txt">Table of n, a(n) for n = 0..1000</a>
%o (Haskell)
%o a246701 n = a246701_list !! n
%o a246701_list = zipWith (-) (tail a246520_list) a246520_list
%o (Python)
%o def A246701(n):
%o ....return(max(int(bin(n+1-k)[2:]+bin(n+1+k)[2:],2) for k in range(n+2)) -max(int(bin(n-k)[2:]+bin(n+k)[2:],2) for k in range(n+1)))
%o # _Chai Wah Wu_, Sep 07 2014
%K nonn
%O 0,1
%A _Reinhard Zumkeller_, Sep 04 2014