%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, PrimeQ[ #*Plus@@IntegerDigits[ # ] + Times@@IntegerDigits[ # ]]&]
%A _J. M. Bergot_, Jun 05 2007
%E Edited, corrected and extended by _Stefan Steinerberger_, Jun 14 2007