OFFSET
1,1
EXAMPLE
29 is in the list since 29 - (2*9) = 11 is a prime.
MATHEMATICA
Select[Prime[Range[126]], PrimeQ[#-Times@@IntegerDigits[#]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 05 2013
STATUS
approved