A037337 Numbers whose base-9 and base-10 expansions have no digits in common.

9, 18, 27, 28, 36, 37, 38, 46, 47, 48, 54, 55, 57, 58, 63, 64, 65, 66, 68, 72, 73, 74, 75, 76, 77, 82, 83, 84, 85, 86, 87, 88, 99, 164, 165, 166, 167, 169, 189, 191, 194, 195, 196, 197, 198, 244, 246, 248, 249, 251, 252, 255, 256, 258, 259, 260, 279, 280, 282

Offset

1,1

Links

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

Maple

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

Mathematica

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

Crossrefs

Sequence in context: A110529 A127887 A359225 * A119310 A037993 A044849

Adjacent sequences: A037334 A037335 A037336 * A037338 A037339 A037340

Keyword

nonn,base

Author

Clark Kimberling

Status

approved