%I #15 Mar 24 2017 00:47:51
%S 0,1,0,2,0,2,1,3,0,2,0,2,0,2,2,4,0,2,0,2,1,3,1,3,0,2,2,4,1,3,3,5,0,2,
%T 0,2,0,2,0,2,0,2,0,2,2,4,2,4,0,2,2,4,0,2,2,4,0,2,2,4,2,4,4,6,0,2,0,2,
%U 0,2,0,2,1,3,1,3,1,3,1,3,0,2,0,2,2,4,2,4,1,3,1,3,3,5,3,5,0,2,2,4,0,2,2,4,1
%N Inner product of the binary representation of n and its reverse.
%C a(n) gives the number of 1's that coincide in the binary representation of n and its reverse. For the n in A140900, we have a(n)=0. The number k first appears at n=2^k-1.
%C Also central terms and right edge of the triangle in A173920: a(n)=A173920(2*n,n)=A173920(n,n). [From _Reinhard Zumkeller_, Mar 04 2010]
%C a(A000225(n)) = n and a(m) < n for m < A000225(n). [_Reinhard Zumkeller_, Oct 21 2011]
%C a(n) = sum(A030308(n,k)*A030308(n,A070939(n)-1-k): k = 0..A070939(n)-1). - _Reinhard Zumkeller_, Mar 10 2013
%H Reinhard Zumkeller, <a href="/A159780/b159780.txt">Table of n, a(n) for n = 0..10000</a>
%e 14 is represented by the binary vector (1,1,1,0). The reverse is (0,1,1,1). The inner product is 1*0+1*1+1*1+0*1 = 2. Hence a(14) = 2.
%t Table[d=IntegerDigits[n,2]; d.Reverse[d], {n,0,1023}]
%o (Haskell)
%o a159780 n = sum $ zipWith (*) bs $ reverse bs
%o where bs = a030308_row n
%o -- _Reinhard Zumkeller_, Mar 10 2013, Oct 21 2011
%Y Cf. A216176.
%K nonn,base
%O 0,4
%A _T. D. Noe_, Apr 22 2009