A073139 Difference between the largest and smallest number having in binary representation the same number of 0's and 1's as n.

0, 0, 0, 0, 0, 1, 1, 0, 0, 3, 3, 3, 3, 3, 3, 0, 0, 7, 7, 9, 7, 9, 9, 7, 7, 9, 9, 7, 9, 7, 7, 0, 0, 15, 15, 21, 15, 21, 21, 21, 15, 21, 21, 21, 21, 21, 21, 15, 15, 21, 21, 21, 21, 21, 21, 15, 21, 21, 21, 15, 21, 15, 15, 0, 0, 31, 31, 45, 31, 45, 45, 49, 31, 45, 45, 49, 45, 49, 49, 45, 31

Offset: 0

Author

Reinhard Zumkeller, Jul 16 2002

Keywords

• nonn

Comments

a(n) = A073138(n) - A073137(n).

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A007088, A073140, A073141.

Programs

Mathematica

d[n_]:=Module[{idn2=IntegerDigits[n,2]},FromDigits[Sort[idn2,#1>#2&],2]- FromDigits[ RotateRight[Sort[idn2],1],2]]; Array[d,90,0] (* Harvey P. Dale, Oct 22 2011 *)