%I
%S 5,6,10,12,13,15,16,18,19,20,21,22,24,25,26,27,30,31,32,33,40,41,42,
%T 44,45,47,48,60,62,78,85,88,89,90,92,93,97,98,99,118,120,121,124,125,
%U 128,130,131,145,146,170,171,174,180,181,182,185
%N Numbers whose base5 and base7 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037359/b037359.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200],Intersection[IntegerDigits[#,5],IntegerDigits[#,7]]=={}&] (* _Vincenzo Librandi_, Jun 08 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
