A241143 Numbers n such that n and 7n share at least one digit.
5, 10, 13, 15, 16, 17, 18, 19, 20, 21, 25, 26, 29, 30, 31, 32, 33, 34, 35, 39, 40, 42, 43, 45, 49, 50, 51, 53, 55, 60, 64, 65, 66, 67, 68, 70, 71, 75, 80, 83, 84, 85, 86, 90, 95, 96, 97, 98, 99, 100, 101, 102, 103, 105, 107, 110, 113, 115, 116, 117, 118, 120, 123, 125, 126, 128, 129, 130, 131, 132, 133, 134, 135, 139, 140
Offset: 1
Examples
13 is in the sequence since 13 and 7*13 = 91 and together they share the digit 1.
Programs
-
Mathematica
fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[7 n]] != {}; Select[ Range[ 100], fQ]
Comments