A241145 - OEIS

%I #6 Apr 25 2014 11:22:04

%S 5,10,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,32,34,35,

%T 36,37,38,39,40,43,45,46,47,48,49,50,51,54,55,56,57,58,59,60,63,64,65,

%U 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

%N Numbers n such that n and 9n share at least one digit.

%e 13 is in the sequence since 13 and 8*13 = 104 and together they share the digit 1.

%t fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[9 n]] != {}; Select[ Range[ 115], fQ]

%Y Cf. A129845, A129846, A129848,  A241141, A241142, A241143, A241144, A241146.

%K base,easy,nonn

%O 1,1

%A _Robert G. Wilson v_, Apr 16 2014