|
%I #15 Jun 21 2021 02:49:00
%S 2,3,4,12,13,14,15,17,18,19,22,23,24,62,63,64,67,68,69,72,73,74,87,88,
%T 89,92,93,94,97,98,99,112,113,114,117,118,119,122,123,124,312,313,314,
%U 317,318,319,322,323,324,337,338,339,342,343
%N Numbers whose base-2 and base-5 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037339/b037339.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[500],Intersection[IntegerDigits[#,2],IntegerDigits[#,5]]=={}&] (* _Vincenzo Librandi_, Jun 06 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
