OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
FromDigits[IntegerDigits[#, 4]] & /@ Select[Range[10000], SameQ @@ Sort /@ IntegerDigits[{#, 3*#}, 4] &] (* Amiram Eldar, Aug 06 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved
