editing
approved
editing
approved
A037889 := proc(n)
local a, dgs ;
a := 0 ;
dgs := convert(n, base, 3);
for i from 1 to nops(dgs) do
a := a+ abs(op(i, dgs)-op(-i, dgs)) ;
end do:
a/2 ;
end proc: # R. J. Mathar, Oct 19 2015
approved
editing
Clark Kimberling (ck6(AT)evansville.edu)
(1/2)*SUMSum{|d(i)-e(i)|} where SUMSum{d(i)*3^i} is base 3 representation of n and e(i) are digits d(i) in reverse order.
nonn,base,new
nonn,base,new
Clark Kimberling, (ck6(AT)evansville.edu)
(1/2)*SUM{|d(i)-e(i)|} where SUM{d(i)*3^i} is base 3 representation of n, and e(i) are digits d(i) in reverse order.
nonn,base,new
Clark Kimberling, ck6@cedar.(AT)evansville.edu
(1/2)*SUM{|d(i)-e(i)|} where SUM{d(i)*3^i} is base 3 representation of n, and e(i) are digits d(i) in reverse order.
0, 0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 2, 1, 0, 2, 1, 0, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 3, 2, 1, 2, 1, 0, 1, 2, 1, 2, 3, 2, 3, 2, 1, 2, 1, 0, 1, 2, 1, 0, 3, 2, 1, 4, 3, 2, 3, 2, 1, 2, 1, 0, 3, 2, 1, 4, 3, 2, 3, 2, 1, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 2, 3, 1
1,6
nonn,base
Clark Kimberling, [email protected]
approved