%I #17 Apr 23 2021 22:19:33
%S 1,2,3,9,52,106,352,394,415,444,462,492,497,504,505,506,507,707,708,
%T 745,756,757,758,759,834,840,1036,1037,1038,1039,1079,1080,1085,1134,
%U 2418,2424,2452,2464,2465,2466,2467,2502,2509,2516,2520,2761,2845
%N Positive numbers having the same set of digits in base 4 and base 7.
%H John Cerkan, <a href="/A037425/b037425.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range@ 2900, Union@ IntegerDigits[#, 4] == Union@ IntegerDigits[#, 7] &] (* _Michael De Vlieger_, Feb 07 2017 *)
%o (PARI) is(n)=Set(digits(n, 4))==Set(digits(n, 7)) \\ _Charles R Greathouse IV_, Feb 11 2017
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Corrected by _Don Reble_, Apr 28 2006
%E Name edited by _John Cerkan_, Feb 06 2017
|