A037423 - OEIS

%I #18 Apr 23 2021 22:19:05

%S 1,2,3,28,37,76,132,137,152,167,183,205,210,217,280,380,407,411,413,

%T 431,441,451,455,657,660,676,692,710,711,713,717,888,903,915,917,918,

%U 933,941,957,1035,1051,1075,1076,1258,1266,1278,1282,1286,1291,1305

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

%H John Cerkan, <a href="/A037423/b037423.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range@ 1400, Union@ IntegerDigits[#, 4] == Union@ IntegerDigits[#, 5] &] (* _Michael De Vlieger_, Feb 07 2017 *)

%o (PARI) is(n)=Set(digits(n, 4))==Set(digits(n, 5)) \\ _Charles R Greathouse IV_, Feb 11 2017

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E Edited by _Don Reble_, Apr 28 2006

%E Name edited by _John Cerkan_, Feb 06 2017