OFFSET
0,13
LINKS
MATHEMATICA
A165111[n_] := (FromDigits[ReverseSort[#], 9] - FromDigits[Sort[#], 9] & [IntegerDigits[n, 9]])/8;
Array[A165111, 100, 0] (* Paolo Xausa, Jan 24 2026 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph Myers, Sep 04 2009
STATUS
approved
