OFFSET
1,1
MATHEMATICA
FromDigits[IntegerDigits[#, 8]]&/@Select[Range[3*10^6], Sort[ IntegerDigits[ #, 8]] == Sort[IntegerDigits[6#, 8]]&] (* Harvey P. Dale, Dec 31 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved