%I #7 Oct 19 2015 14:23:34
%S 0,0,0,0,1,0,1,2,3,2,1,0,1,2,3,2,1,0,1,4,3,2,1,0,1,1,2,3,4,1,0,1,2,3,
%T 2,1,1,2,3,3,2,2,2,3,4,3,3,3,3,2,2,2,3,4,2,1,1,2,3,2,1,0,1,2,3,2,1,1,
%U 2,4,3,2,2,2,3,3,3,3,4,3,2,2,2,3,3,2,1,1,2,3
%N a(n)=(greatest base 5 digit of n)-(least base 5 digit of n).
%p A037899 := proc(n)
%p local dgs ;
%p dgs := convert(n,base,5);
%p max(op(dgs))-min(op(dgs)) ;
%p end proc: # _R. J. Mathar_, Oct 19 2015
%K nonn,base
%O 1,8
%A _Clark Kimberling_