A241144 Numbers n such that n and 8n share at least one digit.
10, 13, 14, 15, 16, 17, 18, 19, 20, 21, 24, 25, 26, 27, 28, 29, 30, 32, 38, 39, 40, 43, 46, 47, 48, 49, 50, 54, 57, 60, 62, 65, 67, 70, 72, 76, 80, 81, 85, 86, 90, 96, 97, 98, 99, 100, 101, 102, 105, 108, 110, 114, 119, 120, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141
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[8 n]] != {}; Select[ Range[ 140], fQ]