A225677 Primes of the form p - (product of digits of p), where p is a prime.

11, 17, 19, 31, 37, 59, 101, 103, 107, 109, 113, 173, 179, 193, 199, 211, 227, 233, 239, 241, 257, 263, 307, 311, 317, 331, 383, 389, 397, 401, 409, 419, 439, 479, 499, 503, 509, 521, 547, 563, 571, 577, 601, 607, 613, 617, 659, 691, 701, 709, 719, 733, 809

Offset: 1

Author

Jayanta Basu, May 12 2013

Keywords

• nonn
• base

Comments

Primes generated by A225319.

Examples

			17 is in the list since 17 = 23 - (2*3).
		

Crossrefs

Cf. A157677, A225303, A225319.

Programs

Mathematica

Union[Select[Table[p=Prime[n]; p-Times@@IntegerDigits[p],{n,150}],PrimeQ]]