A037887 -id:A037887 - cp's OEIS frontend

A037878 (1/2)Sum{|d(i)-e(i)|}, where Sum{d(i)10^i} is base 10 representation of n and e(i) are digits d(i) in nonincreasing order, for i=0,1,...,m.

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 3, 2, 1, 0, 0, 0, 0, 0, 0, 0, 4, 3, 2, 1, 0, 0, 0, 0, 0, 0, 5, 4, 3, 2, 1, 0, 0, 0, 0, 0, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 8, 7, 6, 5, 4, 3, 2, 1, 0, 0, 9

Offset: 1

Clark Kimberling

A037878 := 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

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

A283001 a(n) = (A004186(n) - n)/9.

Original entry on oeis.org

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

Offset: 0

David A. Corneth, Feb 26 2017

A004186(n) is the number formed when the digits of n are sorted nonincreasingly.

Is this the same as A037887 or A037851? - R. J. Mathar, Mar 06 2017

			a(141) = (411 - 141)/9 = 30.

David A. Corneth, Table of n, a(n) for n = 0..9999

Cf. A004186, A037887, A037851.

s[n_]:= FromDigits@ Reverse@ Sort@ IntegerDigits@ n; a[n_]:=(s[n]-n)/9; Table[a[n],{n,0,89}] (* Indranil Ghosh, Feb 26 2017 *)

a(n) = my(d = digits(n), v=vecsort(d,,4)-d); sum(i=1,#v,v[i]*10^(#v-i)) / 9

def A283001(n): return (int("".join(sorted(str(n),reverse=True)))-n)/9 # Indranil Ghosh, Feb 26 2017

a(10*n) = 10*a(n).

cp's OEIS Frontend

A037878 (1/2)Sum{|d(i)-e(i)|}, where Sum{d(i)10^i} is base 10 representation of n and e(i) are digits d(i) in nonincreasing order, for i=0,1,...,m.

Views

Author

Keywords

Programs

Maple

Extensions

A283001 a(n) = (A004186(n) - n)/9.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

cp's OEIS Frontend

A037878 (1/2)*Sum{|d(i)-e(i)|}, where Sum{d(i)*10^i} is base 10 representation of n and e(i) are digits d(i) in nonincreasing order, for i=0,1,...,m.

Views

Author

Keywords

Programs

Maple

Extensions

A283001 a(n) = (A004186(n) - n)/9.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A037878 (1/2)Sum{|d(i)-e(i)|}, where Sum{d(i)10^i} is base 10 representation of n and e(i) are digits d(i) in nonincreasing order, for i=0,1,...,m.