login
a(n)=(greatest base 5 digit of n)-(least base 5 digit of n).
1

%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_