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

1, 2, 3, 4, 5, 6, 7, 8, 158, 227, 445, 454, 801, 1226, 1236, 1380, 2027, 2315, 2534, 4005, 4054, 4767, 5270, 5477, 5567, 5587, 5637, 5657, 5783, 7414, 8010, 8162, 10225, 10235, 10453, 10665, 10855, 11016, 11461, 11670, 11704, 11730, 11750

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Examples

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

Links

• John Cerkan, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A037407.

Cf. A007095.

Programs

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 *)

PARI

isok(n) = Set(digits(n)) == Set(digits(n, 9)); \\ Michel Marcus, Jan 21 2017

Extensions

More terms from Don Reble, Apr 28 2006

Edited by John Cerkan, Feb 17 2017