%I #11 Jun 20 2021 08:24:56
%S 4,5,6,7,8,10,14,15,20,21,23,32,33,34,40,41,42,43,44,45,46,49,50,51,
%T 52,53,54,58,59,60,61,62,63,65,66,67,68,69,70,71,76,77,78,79,80,130,
%U 131,136,138,139,140,142,143,160,204,205,209,211
%N Numbers whose base-4 and base-9 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037356/b037356.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[250],Intersection[IntegerDigits[#,4],IntegerDigits[#,9]]=={}&] (* _Vincenzo Librandi_, Jun 08 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|