A037898 a(n)=(greatest base 4 digit of n)-(least base 4 digit of n).

0, 0, 0, 1, 0, 1, 2, 2, 1, 0, 1, 3, 2, 1, 0, 1, 1, 2, 3, 1, 0, 1, 2, 2, 1, 1, 2, 3, 2, 2, 2, 2, 2, 2, 3, 2, 1, 1, 2, 2, 1, 0, 1, 3, 2, 1, 1, 3, 3, 3, 3, 3, 2, 2, 2, 3, 2, 1, 1, 3, 2, 1, 0, 1, 1, 2, 3, 1, 1, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 1, 1, 2, 3, 1, 0, 1, 2, 2, 1, 1

Offset

1,7

Links

Table of n, a(n) for n=1..90.

Maple

A037898 := proc(n)
    local dgs ;
    dgs := convert(n, base, 4);
    max(op(dgs))-min(op(dgs)) ;
end proc: # R. J. Mathar, Oct 19 2015

Mathematica

gb4[n_]:=Module[{idn4=IntegerDigits[n, 4]}, Max[idn4]-Min[idn4]]; Array[ gb4, 120] (* Harvey P. Dale, Feb 19 2020 *)

Crossrefs

Sequence in context: A301365 A109246 A037890 * A037836 A194522 A165013

Adjacent sequences: A037895 A037896 A037897 * A037899 A037900 A037901

Keyword

nonn,base

Author

Clark Kimberling

Status

approved