OFFSET
1,2
LINKS
MATHEMATICA
Select[Tally[Table[m+Total[IntegerDigits[m, 3]], {m, 0, 700}]], #[[2]]==1&][[;; , 1]] (* Harvey P. Dale, Feb 13 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 31 2013
STATUS
approved