%I #20 Apr 23 2021 22:17:48
%S 1,2,51,63,99,105,345,351,357,358,359,401,406,441,442,443,449,457,687,
%T 693,694,695,702,735,736,737,749,785,791,2403,2410,2415,2416,2417,
%U 2452,2457,2458,2459,2464,2465,2499,2500,2501,2506,2507,2508,2513
%N Positive numbers having the same set of digits in base 3 and base 7.
%H Rémy Sigrist, <a href="/A037419/b037419.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[2600],Union[IntegerDigits[#,3]]==Union[IntegerDigits[#,7]]&] (* _Harvey P. Dale_, Mar 11 2011 *)
%o (PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 7)); \\ _Michel Marcus_, Jan 22 2017
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Corrected by _Don Reble_, Apr 28 2006
|