A037887 a(n)=(1/2)*Sum{|d(i)-e(i)|} where Sum{d(i)*10^i} is the base 10 representation of n and e(i) are the digits d(i) in nondecreasing order.
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0
Offset: 1
Programs
-
Maple
A037887 := proc(n) local a,dgs,dgsE ; a := 0 ; dgs := convert(n,base,10); dgsE := sort(dgs) ; for i from 1 to nops(dgs) do a := a+ abs(op(i,dgs)-op(i,dgsE)) ; end do: a/2 ; end proc: # R. J. Mathar, Oct 19 2015
Extensions
Definition swapped with A037878. - R. J. Mathar, Oct 19 2015