OFFSET
0,10
LINKS
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 16 2002
STATUS
approved