OFFSET
0,8
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..8192 (terms 0..1024 from Joseph Myers)
MATHEMATICA
A165013[n_] := (FromDigits[ReverseSort[#], 4] - FromDigits[Sort[#], 4] & [IntegerDigits[n, 4]])/3;
Array[A165013, 100, 0] (* Paolo Xausa, Jan 24 2026 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph Myers, Sep 04 2009
STATUS
approved
