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

%I #7 May 13 2013 17:20:10

%S 11,17,19,31,37,59,101,103,107,109,113,173,179,193,199,211,227,233,

%T 239,241,257,263,307,311,317,331,383,389,397,401,409,419,439,479,499,

%U 503,509,521,547,563,571,577,601,607,613,617,659,691,701,709,719,733,809

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

%C Primes generated by A225319.

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

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

%Y Cf. A157677, A225303, A225319.

%K nonn,base

%O 1,1

%A _Jayanta Basu_, May 12 2013