%I #21 Sep 15 2023 15:13:32
%S 1,2,22,25,33,41,66,73,81,84,88,96,97,98,100,104,129,132,137,144,145,
%T 146,149,162,168,256,258,262,264,265,266,273,278,281,288,289,290,292,
%U 293,294,296,297,298,322,324,325,326,329,330,336,337,338,344,353,356
%N Positive numbers having the same set of digits in base 3 and base 4.
%H Rémy Sigrist, <a href="/A037416/b037416.txt">Table of n, a(n) for n = 1..10000</a>
%p q:= n-> (f-> is(f(3)=f(4)))(k-> {convert(n, base, k)[]}):
%p select(q, [$1..1000])[]; # _Alois P. Heinz_, Oct 30 2020
%t Select[Range[400],Union[IntegerDigits[#,3]]==Union[IntegerDigits[#,4]]&] (* _Harvey P. Dale_, Sep 15 2023 *)
%o (PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 4)); \\ _Michel Marcus_, Jan 22 2017
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E More terms from _Don Reble_, Apr 28 2006
|