%I #6 Apr 25 2014 11:21:44
%S 5,10,13,15,16,17,18,19,20,21,25,26,29,30,31,32,33,34,35,39,40,42,43,
%T 45,49,50,51,53,55,60,64,65,66,67,68,70,71,75,80,83,84,85,86,90,95,96,
%U 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
%N Numbers n such that n and 7n share at least one digit.
%C All numbers n which are congruent to 0 (mod 5) have this characteristic.
%e 13 is in the sequence since 13 and 7*13 = 91 and together they share the digit 1.
%t fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[7 n]] != {}; Select[ Range[ 100], fQ]
%Y Cf. A129845, A129846, A129848, A241141, A241142, A241144, A241145, A241146.
%K base,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 16 2014
|