A037883 a(n)=(1/2)*Sum{|d(i)-e(i)|} where Sum{d(i)*6^i} is the base 6 representation of n and e(i) are the digits d(i) in nondecreasing order.

0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 0, 0, 0, 1, 2, 3, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 0, 0, 1, 2, 3, 4, 1, 1, 1, 2, 3, 4, 2, 2, 2, 2, 3, 4, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 0, 1, 2, 3, 4, 5, 0, 0, 1, 2, 3, 4, 0, 0, 0, 1, 2, 3, 1

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Comments

Starts to differ from A037847 at n=230 = 1022_6. - R. J. Mathar, Aug 05 2025

Programs

Maple

A037883 := proc(n)
    local a,dgs,dgsE ;
    a := 0 ;
    dgs := convert(n,base,6);
    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 A037874. - R. J. Mathar, Oct 19 2015