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

8, 9, 16, 18, 19, 24, 25, 27, 28, 29, 32, 33, 36, 37, 38, 39, 48, 49, 50, 51, 52, 54, 55, 56, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 78, 88, 89, 90, 92, 94, 95, 96, 97, 98, 99, 133, 134, 135, 144, 146, 147, 149, 150, 151, 154, 155

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Maple

q:= n->  (f-> is({}=f(8) intersect f(10)))({k-> convert(n, base, k)[]}):
select(q, [$1..200])[]; #  Alois P. Heinz, Jun 20 2021

Mathematica

Select[Range[200], Intersection[IntegerDigits[#, 8], IntegerDigits[#, 10]]=={}&] (* Vincenzo Librandi, Jun 09 2012 *)

Crossrefs

Sequence in context: A047393 A241263 A307417 * A236300 A046790 A057111

Adjacent sequences: A037368 A037369 A037370 * A037372 A037373 A037374

Keyword

nonn,base

Author

Clark Kimberling

Status

approved