%I
%S 1,11,19,27,29,31,43,49,51,53,57,61,73,79,83,87,91,221,283,463,469,
%T 643,649,661,887,1117,1123,1139,1147,1169,1171,1193,1199,1231,1259,
%U 1313,1319,1327,1331,1349,1357,1381,1391,1393,1439,1459,1529,1537,1549,1551
%N Numbers n such that adding the product of the digits of n to the product of n and the sum of its digits yields a prime.
%H Harvey P. Dale, <a href="/A129916/b129916.txt">Table of n, a(n) for n = 1..1000</a>
%e The sum of the digits of 19 is 10, the product of the digits is 9.
%e 10*19 + 9 = 199 is a prime, therefore 19 is in the sequence.
%t Select[Range[2000], PrimeQ[ #*Plus@@IntegerDigits[ # ] + Times@@IntegerDigits[ # ]]&]
%K base,nonn,less
%O 1,2
%A _J. M. Bergot_, Jun 05 2007
%E Edited, corrected and extended by _Stefan Steinerberger_, Jun 14 2007
