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[{#, 4*#}, 7] &] (* Amiram Eldar, Aug 07 2025 *)
FromDigits[IntegerDigits[#, 7]]&/@Select[Range[25000], Sort[IntegerDigits[#, 7]]==Sort[IntegerDigits[4#, 7]]&] (* Harvey P. Dale, Dec 29 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved
