%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