login
Numbers whose base-3 and base-10 expansions have no digits in common.
1

%I #11 Jun 20 2021 08:25:09

%S 3,4,5,6,7,8,9,18,27,28,33,34,35,36,37,38,39,40,43,44,45,46,47,48,49,

%T 50,53,54,55,56,57,58,59,63,64,65,66,67,68,69,70,73,74,75,76,77,78,79,

%U 80,82,83,84,85,86,87,88,89,93,94,95,96,97,98

%N Numbers whose base-3 and base-10 expansions have no digits in common.

%H Vincenzo Librandi, <a href="/A037351/b037351.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[100],Intersection[IntegerDigits[#,3],IntegerDigits[#,10]]=={}&] (* _Vincenzo Librandi_, Jun 07 2012 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_