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