A129917 - OEIS

%I #4 Mar 31 2012 10:22:32

%S 1,11,13,14,16,17,19,20,25,30,31,32,37,43,47,49,50,58,61,70,73,74,79,

%T 83,85,91,92,95,101,102,104,106,110,120,140,160,164,188,200,201,203,

%U 205,209,210,212,218,223,227,230,232,238,245,250

%N Numbers n such that adding the sum of the digits of n to the product of n and the product of its digits yields a prime.

%e The sum of the digits of 11 is 2, the product is 1. 1*11 +

%e 2 = 13 is a prime.

%e Therefore 11 is in the sequence.

%t Select[Range[1000], PrimeQ[ #*Times@@IntegerDigits[ # ] + Plus@@IntegerDigits[ # ]]&]

%K base,nonn,less

%O 1,2

%A _J. M. Bergot_, Jun 05 2007

%E Edited and extended by _Stefan Steinerberger_, Jun 14 2007