A129916 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.

1, 11, 19, 27, 29, 31, 43, 49, 51, 53, 57, 61, 73, 79, 83, 87, 91, 221, 283, 463, 469, 643, 649, 661, 887, 1117, 1123, 1139, 1147, 1169, 1171, 1193, 1199, 1231, 1259, 1313, 1319, 1327, 1331, 1349, 1357, 1381, 1391, 1393, 1439, 1459, 1529, 1537, 1549, 1551

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

The sum of the digits of 19 is 10, the product of the digits is 9.
10*19 + 9 = 199 is a prime, therefore 19 is in the sequence.

Mathematica

Select[Range[2000], PrimeQ[ #*Plus@@IntegerDigits[ # ] + Times@@IntegerDigits[ # ]]&]

Crossrefs

Sequence in context: A289700 A231012 A231007 * A032694 A368374 A004769

Adjacent sequences: A129913 A129914 A129915 * A129917 A129918 A129919

Keyword

base,nonn,less

Author

J. M. Bergot, Jun 05 2007

Extensions

Edited, corrected and extended by Stefan Steinerberger, Jun 14 2007

Status

approved