A037903 - OEIS

A037903

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

0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 2, 3, 4, 5, 6, 7, 2, 1, 0, 1, 2, 3, 4, 5, 6, 3, 2, 1, 0, 1, 2, 3, 4, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 4, 3, 2, 1, 0, 1, 2, 3, 6, 5, 4, 3, 2, 1, 0, 1, 2, 7, 6, 5, 4, 3, 2, 1, 0, 1, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 1, 2, 3, 4, 5, 6, 7, 8, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,13

LINKS

Zhuorui He, Table of n, a(n) for n = 0..10000

MATHEMATICA

bnd[n_]:=Module[{idn9=IntegerDigits[n, 9]}, Max[idn9]-Min[idn9]]; Array[bnd, 100] (* Harvey P. Dale, Jul 12 2011 *)

PROG

(PARI) A037903(n)={my(x = n%9, y = n%9); while(n, x = max(x, n%9); y = min(y, n%9); n = n\9); x-y} \\ Zhuorui He, Dec 24 2025

CROSSREFS

Cf. A037897, A037898, A037899, A037900, A037901, A037902.

Sequence in context: A030107 A255593 A037895 * A037841 A165111 A038387