A241146 Least number k such that k and n*k share at least one digit.
1, 10, 5, 10, 5, 2, 5, 10, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 1, 9, 5, 10, 5, 2, 5, 6, 5, 5, 1, 10, 5, 10, 4, 2, 4, 10, 5, 10, 1, 10, 5, 3, 3, 2, 5, 8, 5, 5, 1, 10, 5, 7, 5, 2, 5, 10, 5, 2, 1, 2, 2, 2, 5, 2, 5, 7, 5, 5, 1, 10, 5, 10, 5, 2, 3, 3, 3, 10, 1, 7, 5, 10, 4, 2, 4, 9, 5, 5, 1, 10, 5, 6, 5, 2, 5, 8, 5, 1
Offset: 1
Programs
-
Mathematica
f[n_] := Block[{k = 1}, While[ Intersection[ IntegerDigits[k], IntegerDigits[n*k]] == {}, k++]; k]; Array[f, 100]
Formula
If a(n) = k so does a(10n).
Comments