OFFSET
1,2
COMMENTS
All terms are divisible by 3. - Eric M. Schmidt, Jul 12 2014
LINKS
David W. Wilson, Table of n, a(n) for n = 1..10001
MATHEMATICA
si[n_] := Sort@ IntegerDigits@ n; Flatten@{0, Table[Select[Range[10^d + 2, 2 10^d - 1, 3], si[#] == si[7 #] &], {d, 0, 6}]} (* Giovanni Resta, Mar 20 2017 *)
Select[3*Range[0, 50000], Sort[IntegerDigits[7 #]]==Sort[IntegerDigits[#]]&] (* Harvey P. Dale, Jan 06 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved
