A037422 Positive numbers having the same set of digits in base 3 and base 10.

1, 2, 10, 20, 102, 122, 201, 210, 211, 212, 1000, 1011, 1020, 1021, 1022, 1121, 1200, 1211, 1220, 2000, 2001, 2010, 2011, 2012, 2021, 2022, 2100, 2110, 2120, 2201, 2210, 10002, 10012, 10020, 10021, 10022, 10102, 10122, 10200, 10210, 10211

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

Subsequence of A007089.

Programs

Mathematica

fQ[n_] := Union@ IntegerDigits@ n == Union@ IntegerDigits[n, 3]; Select[ Range@11000, fQ] (* Robert G. Wilson v, Feb 02 2017 *)

PARI

is(n)=Set(digits(n, 3))==Set(digits(n)) \\ Charles R Greathouse IV, Feb 11 2017

Extensions

Corrected by Don Reble, Apr 28 2006