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