%I #15 Jun 21 2021 02:49:09
%S 2,3,4,5,6,16,17,18,19,20,23,24,25,26,27,30,31,32,33,34,37,38,39,40,
%T 41,44,45,46,47,48,114,115,116,117,118,121,122,123,124,125,128,129,
%U 130,131,132,135,136,137,138,139,142,143,144,145
%N Numbers whose base-2 and base-7 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037341/b037341.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200],Intersection[IntegerDigits[#,2],IntegerDigits[#,7]]=={}&] (* _Vincenzo Librandi_, Jun 07 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|