A108194 - OEIS

%I #7 Mar 31 2012 13:46:52

%S 0,1,2,3,4,5,6,7,8,9,22,28,29,37,39,48,49,59,68,69,73,77,78,79,82,84,

%T 86,87,88,89,92,93,94,95,96,97,98,99,109,123,127,128,129,132,136,137,

%U 138,145,147,148,154,157,158,159,163,166,167,172

%N Numbers n such that the sum of the digits and the product of the digits have at least one common digit.

%e 59 is in the sequence because 5+9=14 and 5*9=45 have the common digit 4.

%t Select[Range[0, 240], Length[Intersection[IntegerDigits[Plus @@ IntegerDigits[ # ]], IntegerDigits[Times @@ IntegerDigits[ # ]]]] > 0 &]

%K base,easy,nonn,less

%O 1,3

%A _Eric Angelini_, Jun 15 2005

%E Edited, corrected and extended by _Stefan Steinerberger_, Jun 11 2007