%I #21 Apr 24 2021 02:03:52

%S 1,2,3,4,5,6,7,8,158,227,445,454,801,1226,1236,1380,2027,2315,2534,

%T 4005,4054,4767,5270,5477,5567,5587,5637,5657,5783,7414,8010,8162,

%U 10225,10235,10453,10665,10855,11016,11461,11670,11704,11730,11750

%N Positive numbers having the same set of digits in base 9 and base 10.

%H John Cerkan, <a href="/A037443/b037443.txt">Table of n, a(n) for n = 1..10000</a>

%e 1380 is in the sequence because 1380 in base 9 is 1803.

%p 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

%t Select[Range[12000],Union[IntegerDigits[#]]==Union[IntegerDigits[#,9]]&] (* _Harvey P. Dale_, Jan 18 2013 *)

%o (PARI) isok(n) = Set(digits(n)) == Set(digits(n, 9)); \\ _Michel Marcus_, Jan 21 2017

%Y Subsequence of A037407.

%Y Cf. A007095.

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E More terms from _Don Reble_, Apr 28 2006

%E Edited by _John Cerkan_, Feb 17 2017