|
%I #14 Jun 20 2021 08:29:01
%S 6,7,8,9,14,15,16,17,18,21,22,25,27,28,29,36,37,38,42,43,44,45,47,48,
%T 49,50,54,55,56,57,58,66,67,68,69,70,73,74,75,76,77,78,79,80,83,84,85,
%U 86,87,88,89,96,97,98,99,100,101,104,106,107,111
%N Numbers whose base-6 and base-10 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037366/b037366.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[120],Intersection[IntegerDigits[#],IntegerDigits[ #,6]] == {}&] (* _Harvey P. Dale_, Sep 24 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
