A225319 Prime numbers p such that p - (product of digits of p) is also prime.

23, 29, 41, 43, 47, 83, 89, 101, 103, 107, 109, 127, 149, 181, 223, 227, 229, 241, 251, 263, 271, 277, 293, 307, 347, 349, 367, 383, 389, 401, 409, 419, 431, 433, 439, 457, 479, 487, 503, 509, 541, 587, 601, 607, 631, 641, 643, 647, 653, 659, 673, 677, 701

Offset: 1

Author

Jayanta Basu, May 05 2013

Keywords

• nonn
• base

Examples

			29 is in the list since 29 - (2*9) = 11 is a prime.
		

Crossrefs

Cf. A157677.

Programs

Mathematica

Select[Prime[Range[126]], PrimeQ[#-Times@@IntegerDigits[#]] &]