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