OFFSET
1,1
EXAMPLE
The ternary representations of 11, 20, and 34 are 102, 202, and 1021.
MATHEMATICA
Map[#[[1]] &, Select[Map[{#, #[[1]] > 0 && #[[1]] == #[[2]] &[{Length[
StringCases[#, "0"]], Length[StringCases[#, "02"]]}] &[
IntegerString[#, 3]]} &, Range[500]], #[[2]] &]]
(* Peter J. C. Moses, Mar 05 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Clark Kimberling, Mar 15 2024
STATUS
approved