A037343 Numbers whose base-2 and base-9 expansions have no digits in common.

2, 3, 4, 5, 6, 7, 8, 20, 21, 22, 23, 24, 25, 26, 29, 30, 31, 32, 33, 34, 35, 38, 39, 40, 41, 42, 43, 44, 47, 48, 49, 50, 51, 52, 53, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 74, 75, 76, 77, 78, 79, 80, 182, 183, 184, 185, 186

Offset

1,1

Links

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

Mathematica

Select[Range[200], Intersection[IntegerDigits[#, 2], IntegerDigits[#, 9]]=={}&] (* Vincenzo Librandi, Jun 07 2012 *)

Prog

(PARI) isok(k) = #setintersect(Set(digits(k, 2)), Set(digits(k, 9))) == 0; \\ Michel Marcus, Apr 14 2021

Crossrefs

Cf. A007088 (base 2), A007095 (base 9).

Sequence in context: A363490 A039127 A024650 * A366947 A366838 A236836

Adjacent sequences: A037340 A037341 A037342 * A037344 A037345 A037346

Keyword

nonn,base

Author

Clark Kimberling

Status

approved