%I #6 Apr 25 2014 11:21:54
%S 10,13,14,15,16,17,18,19,20,21,24,25,26,27,28,29,30,32,38,39,40,43,46,
%T 47,48,49,50,54,57,60,62,65,67,70,72,76,80,81,85,86,90,96,97,98,99,
%U 100,101,102,105,108,110,114,119,120,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141
%N Numbers n such that n and 8n 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[8 n]] != {}; Select[ Range[ 140], fQ]
%Y Cf. A129845, A129846, A129848, A241141, A241142, A241143, A241145, A241146.
%K base,easy,nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 16 2014
|