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,10

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

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 *)

Crossrefs

Cf. A007088, A073140, A073141.

Sequence in context: A141605 A356002 A251551 * A122845 A135203 A251552

Adjacent sequences: A073136 A073137 A073138 * A073140 A073141 A073142

Keyword

nonn

Author

Reinhard Zumkeller, Jul 16 2002

Status

approved