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