%I #22 Apr 23 2021 22:20:50
%S 1,2,3,4,17,51,66,102,416,423,557,687,697,739,785,842,889,1030,1078,
%T 1087,1109,1233,1374,1439,1444,1477,1481,1492,1499,1570,2527,2566,
%U 2576,2580,2601,2605,2611,2625,2626,2627,2628,2629,2811,2871,2916
%N Positive numbers having the same set of digits in base 5 and base 7.
%H John Cerkan, <a href="/A037430/b037430.txt">Table of n, a(n) for n = 1..10000</a>
%e 423 is in the sequence because 423 in base 5 is 3413 and in base 7 it is 1143.
%p a:=proc(n) if convert(convert(n,base,5),set)=convert(convert(n,base,7),set) then n else fi end: seq(a(n),n=1..3000); # _Emeric Deutsch_, Apr 30 2006
%t Select[Range[3000],Union[IntegerDigits[#,5]]==Union[IntegerDigits[#,7]]&] (* _Harvey P. Dale_, Mar 06 2012 *)
%o (PARI) is(n)=Set(digits(n, 5))==Set(digits(n, 7)) \\ _Charles R Greathouse IV_, Feb 11 2017
%Y Subsequence of A037394.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E More terms from _Don Reble_, Apr 28 2006
%E Name edited by _John Cerkan_, Feb 09 2017
|