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

Links

Table of n, a(n) for n=1..90.

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

Crossrefs

Sequence in context: A075011 A283001 A037851 * A207505 A235049 A031087

Adjacent sequences: A037884 A037885 A037886 * A037888 A037889 A037890

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Definition swapped with A037878. - R. J. Mathar, Oct 19 2015

Status

approved