A241145 Numbers n such that n and 9n share at least one digit.
5, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 32, 34, 35, 36, 37, 38, 39, 40, 43, 45, 46, 47, 48, 49, 50, 51, 54, 55, 56, 57, 58, 59, 60, 63, 64, 65, 67, 68, 69, 70, 73, 75, 76, 78, 79, 80, 82, 85, 87, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 105, 109, 110, 112, 113
Offset: 1
Examples
13 is in the sequence since 13 and 8*13 = 104 and together they share the digit 1.
Programs
-
Mathematica
fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[9 n]] != {}; Select[ Range[ 115], fQ]