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

1, 11, 13, 14, 16, 17, 19, 20, 25, 30, 31, 32, 37, 43, 47, 49, 50, 58, 61, 70, 73, 74, 79, 83, 85, 91, 92, 95, 101, 102, 104, 106, 110, 120, 140, 160, 164, 188, 200, 201, 203, 205, 209, 210, 212, 218, 223, 227, 230, 232, 238, 245, 250

Offset

1,2

Links

Table of n, a(n) for n=1..53.

Example

The sum of the digits of 11 is 2, the product is 1. 1*11 +
2 = 13 is a prime.
Therefore 11 is in the sequence.

Mathematica

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

Crossrefs

Sequence in context: A111634 A065877 A290468 * A102577 A320427 A038187

Adjacent sequences: A129914 A129915 A129916 * A129918 A129919 A129920

Keyword

base,nonn,less

Author

J. M. Bergot, Jun 05 2007

Extensions

Edited and extended by Stefan Steinerberger, Jun 14 2007

Status

approved