This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A037443 #21 Apr 24 2021 02:03:52 %S A037443 1,2,3,4,5,6,7,8,158,227,445,454,801,1226,1236,1380,2027,2315,2534, %T A037443 4005,4054,4767,5270,5477,5567,5587,5637,5657,5783,7414,8010,8162, %U A037443 10225,10235,10453,10665,10855,11016,11461,11670,11704,11730,11750 %N A037443 Positive numbers having the same set of digits in base 9 and base 10. %H A037443 John Cerkan, <a href="/A037443/b037443.txt">Table of n, a(n) for n = 1..10000</a> %e A037443 1380 is in the sequence because 1380 in base 9 is 1803. %p A037443 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 A037443 Select[Range[12000],Union[IntegerDigits[#]]==Union[IntegerDigits[#,9]]&] (* _Harvey P. Dale_, Jan 18 2013 *) %o A037443 (PARI) isok(n) = Set(digits(n)) == Set(digits(n, 9)); \\ _Michel Marcus_, Jan 21 2017 %Y A037443 Subsequence of A037407. %Y A037443 Cf. A007095. %K A037443 nonn,base %O A037443 1,2 %A A037443 _Clark Kimberling_ %E A037443 More terms from _Don Reble_, Apr 28 2006 %E A037443 Edited by _John Cerkan_, Feb 17 2017