%I #21 Jan 01 2023 13:20:10
%S 1,2,3,13,31,123,203,231,1031,1103,1120,1203,1230,1303,2103,2120,2201,
%T 2300,2301,2302,2303,3012,3020,3021,3022,3023,3100,3101,3102,3103,
%U 3200,3201,3202,3203,3320,10023,10032,10123,10132,10232,10323,10332
%N Positive numbers having the same set of digits in base 4 and base 10.
%H John Cerkan, <a href="/A037428/b037428.txt">Table of n, a(n) for n = 1..10000</a>
%e 1103 is in the sequence because 1103 in base 4 is 101033.
%t Select[Range[33333],Union[IntegerDigits[#]]==Union[IntegerDigits[#,4]]&] (* _Harvey P. Dale_, Jan 01 2023 *)
%o (PARI) is(n)=Set(digits(n, 4))==Set(digits(n)) \\ _Charles R Greathouse IV_, Feb 11 2017
%Y Subsequence of A007090 and A037392.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Corrected by _Don Reble_, Apr 28 2006
%E Edited by _John Cerkan_, Feb 09 2017