|
%I #11 Jun 20 2021 08:25:12
%S 3,4,5,6,7,8,30,31,32,33,34,35,39,40,41,42,43,44,48,49,50,51,52,53,57,
%T 58,59,60,61,62,66,67,68,69,70,71,75,76,77,78,79,80,273,274,275,276,
%U 277,278,282,283,284,285,286,287,291,292,293
%N Numbers whose base-3 and base-9 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037350/b037350.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[1000],Intersection[IntegerDigits[#,3],IntegerDigits[#,9]]=={}&] (* _Vincenzo Librandi_, Jun 07 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
