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

Subsequence of A037407.

Cf. A007095.

Sequence in context: A154701 A004870 A037336 * A073790 A029965 A004881

Adjacent sequences: A037440 A037441 A037442 * A037444 A037445 A037446

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Don Reble, Apr 28 2006

Edited by John Cerkan, Feb 17 2017

Status

approved