|
%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
|
