%I A037904
%S A037904 0,0,0,0,0,0,0,0,0,1,0,1,2,3,4,5,6,7,8,2,1,0,1,2,3,4,5,6,7,3,
%T A037904 2,1,0,1,2,3,4,5,6,4,3,2,1,0,1,2,3,4,5,5,4,3,2,1,0,1,2,3,4,6,
%U A037904 5,4,3,2,1,0,1,2,3,7,6,5,4,3,2,1,0,1,2,8,7,6,5,4,3,2,1,0,1,9
%N A037904 Greatest digit of n - least digit of n.
%C A037904 Also a(n)=Sum{|d(i)-d(i-1)|: i=0,1,...,m}, where Sum{d(i)^10^i: i=0,1,
               ...,m} is the base 10 representation of n.
%C A037904 Also a(n)=(1/2)*Sum{|d(i)-e(i)|} where Sum{d(i)*10^i} is the base 10 
               representation of n and e(i) are the digits d(i) in reverse order.
%C A037904 a(n) = A054055(n)-A054054(n); a(A010785(n)) = 0; for k>0: a(n) = a(n*10^k 
               + A000030(n)) = a(n*10^k + A010879(n)) = a(n*10^k + A054054(n)) = 
               a(n*10^k + A054055(n)) . - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Dec 14 2007; corrected by David Wasserman (dwasserm(AT)earthlink.net), 
               May 21 2008
%H A037904 R. Zumkeller, <a href="b037904.txt">Table of n, a(n) for n = 1..10000</
               a>
%t A037904 f[n_] := Block[{d = IntegerDigits[n]}, Max[d] - Min[d]]; Table[ f[n], 
               {n, 1, 15}]
%Y A037904 Cf. A040163, A064834.
%Y A037904 Sequence in context: A025482 A023125 A030108 this_sequence A070615 A040114 
               A064834
%Y A037904 Adjacent sequences: A037901 A037902 A037903 this_sequence A037905 A037906 
               A037907
%K A037904 nonn,base,nice
%O A037904 1,13
%A A037904 Clark Kimberling (ck6(AT)evansville.edu)