Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A037443
Positive numbers having the same set of digits in base 9 and base 10.
3
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
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
KEYWORD
nonn,base
EXTENSIONS
More terms from Don Reble, Apr 28 2006
Edited by John Cerkan, Feb 17 2017
STATUS
approved