OFFSET
1,2
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
EXAMPLE
1380 is in the sequence because 1380 in base 9 is 1803.
MAPLE
a:=proc(n) if convert(convert(n, base, 9), set)=convert(convert(n, base, 10), set) then n else fi end: seq(a(n), n=1..12000); # Emeric Deutsch, Apr 30 2006
MATHEMATICA
Select[Range[12000], Union[IntegerDigits[#]]==Union[IntegerDigits[#, 9]]&] (* Harvey P. Dale, Jan 18 2013 *)
PROG
(PARI) isok(n) = Set(digits(n)) == Set(digits(n, 9)); \\ Michel Marcus, Jan 21 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Don Reble, Apr 28 2006
Edited by John Cerkan, Feb 17 2017
STATUS
approved