login
A037342
Numbers whose base-2 and base-8 expansions have no digits in common.
1
2, 3, 4, 5, 6, 7, 18, 19, 20, 21, 22, 23, 26, 27, 28, 29, 30, 31, 34, 35, 36, 37, 38, 39, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, 63, 146, 147, 148, 149, 150, 151, 154, 155, 156, 157, 158, 159, 162, 163, 164, 165, 166, 167, 170, 171
OFFSET
1,1
LINKS
MAPLE
q:= n-> (f-> is({}=f(8) intersect f(2)))({k-> convert(n, base, k)[]}):
select(q, [$1..200])[]; # Alois P. Heinz, Jun 20 2021
MATHEMATICA
Select[Range[200], Intersection[IntegerDigits[#, 2], IntegerDigits[#, 8]] =={}&] (* Harvey P. Dale, Jun 06 2011 *)
CROSSREFS
Sequence in context: A039090 A138988 A055520 * A200333 A024644 A297182
KEYWORD
nonn,base
STATUS
approved