A037371 - OEIS

%I #11 Jun 20 2021 15:16:10

%S 8,9,16,18,19,24,25,27,28,29,32,33,36,37,38,39,48,49,50,51,52,54,55,

%T 56,58,59,60,61,63,64,65,66,67,68,69,72,73,74,75,76,77,78,88,89,90,92,

%U 94,95,96,97,98,99,133,134,135,144,146,147,149,150,151,154,155

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

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

%p q:= n->  (f-> is({}=f(8) intersect f(10)))({k-> convert(n, base, k)[]}):

%p select(q, [$1..200])[]; #  _Alois P. Heinz_, Jun 20 2021

%t Select[Range[200],Intersection[IntegerDigits[#,8],IntegerDigits[#,10]]=={}&] (* _Vincenzo Librandi_, Jun 09 2012 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_