A037417 - OEIS

%I #21 Apr 23 2021 22:17:19

%S 1,2,7,30,35,51,55,60,127,132,135,136,137,157,161,175,176,177,185,251,

%T 257,261,275,276,277,285,301,305,627,632,636,652,657,660,661,662,675,

%U 676,677,680,681,682,685,686,687,752,756,761,762,777,785,800,801,802

%N Positive numbers having the same set of digits in base 3 and base 5.

%H Rémy Sigrist, <a href="/A037417/b037417.txt">Table of n, a(n) for n = 1..10000</a>

%p q:= n-> (f-> is(f(3)=f(5)))(k-> {convert(n, base, k)[]}):

%p select(q, [$1..1000])[];  # _Alois P. Heinz_, Oct 30 2020

%t Select[Range[1000],Union[IntegerDigits[#,5]]==Union[IntegerDigits[#,3]]&] (* _Harvey P. Dale_, Aug 21 2013 *)

%o (PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 5)); \\ _Michel Marcus_, Jan 22 2017

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E More terms from _Don Reble_, Apr 28 2006