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