%I #12 Jun 20 2021 08:25:23
%S 3,4,6,8,12,13,18,19,23,24,26,79,80,93,94,98,99,112,117,118,119,123,
%T 124,168,216,218,224,234,324,337,363,364,394,395,454,468,469,473,474,
%U 475,493,494,498,499,546,548,593,594,598,599,618
%N Numbers whose base-3 and base-5 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037346/b037346.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[1000],Intersection[IntegerDigits[#,3],IntegerDigits[#,5]]=={}&] (* _Vincenzo Librandi_, Jun 07 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|