%I #21 Aug 12 2017 06:02:22
%S 0,0,1,0,1,2,1,0,1,1,2,1,0,1,2,1,1,2,2,2,2,1,1,2,1,0,1,1,2,1,1,2,2,2,
%T 2,1,1,2,1,0,1,2,1,1,2,2,2,2,1,1,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,
%U 2,1,1,2,2,2,2,1,1,2,1,0,1,1,2,1,1,2,2,2,2,1,1,2,1,1,2,2,2,2,2,2,2,2,2,2,2
%N (Greatest base 3 digit of n)-(least base 3 digit of n).
%H Antti Karttunen, <a href="/A037897/b037897.txt">Table of n, a(n) for n = 1..19683</a>
%F a(n) = A190592(n) - A290825(n). - _Antti Karttunen_, Aug 12 2017
%p A037897 := proc(n)
%p local dgs ;
%p dgs := convert(n,base,3);
%p max(op(dgs))-min(op(dgs)) ;
%p end proc: # _R. J. Mathar_, Oct 19 2015
%o (PARI) A037897(n) = (vecmax(digits(n,3)) - vecmin(digits(n,3))); \\ _Antti Karttunen_, Aug 11 2017
%Y Cf. A007089, A043530, A190592, A290825.
%K nonn,base
%O 1,6
%A _Clark Kimberling_
%E Offset corrected by _R. J. Mathar_, Oct 19 2015
%E More terms from _Antti Karttunen_, Aug 11 2017
|