1,1

Table of n, a(n) for n=1..72.

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

fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[8 n]] != {}; Select[ Range[ 140], fQ]

Cf. A129845, A129846, A129848, A241141, A241142, A241143, A241145, A241146.

Sequence in context: A241174 A092887 A131365 * A102362 A070837 A188643

Adjacent sequences: A241141 A241142 A241143 * A241145 A241146 A241147

base,easy,nonn

Robert G. Wilson v, Apr 16 2014

approved