|
%I #11 Jun 20 2021 08:29:12
%S 6,12,18,19,24,26,30,31,32,37,38,39,40,48,74,76,90,92,95,96,111,113,
%T 114,117,118,133,135,141,142,145,152,160,174,181,191,192,193,197,200,
%U 203,216,221,222,223,227,228,229,230,235,236,237
%N Numbers whose base-6 and base-7 expansions have no digits in common.
%H Harvey P. Dale, <a href="/A037363/b037363.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[300],Intersection[Union[IntegerDigits[#,6]], Union[IntegerDigits[#,7]]]=={}&] (* _Harvey P. Dale_, Oct 19 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
