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