A037422 - OEIS

%I #18 Apr 23 2021 22:18:49

%S 1,2,10,20,102,122,201,210,211,212,1000,1011,1020,1021,1022,1121,1200,

%T 1211,1220,2000,2001,2010,2011,2012,2021,2022,2100,2110,2120,2201,

%U 2210,10002,10012,10020,10021,10022,10102,10122,10200,10210,10211

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

%H John Cerkan, <a href="/A037422/b037422.txt">Table of n, a(n) for n = 1..10000</a>

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

%o (PARI) is(n)=Set(digits(n, 3))==Set(digits(n)) \\ _Charles R Greathouse IV_, Feb 11 2017

%Y Subsequence of A007089.

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E Corrected by _Don Reble_, Apr 28 2006