OFFSET
1,1
COMMENTS
Primes generated by A225319.
EXAMPLE
17 is in the list since 17 = 23 - (2*3).
MATHEMATICA
Union[Select[Table[p=Prime[n]; p-Times@@IntegerDigits[p], {n, 150}], PrimeQ]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 12 2013
STATUS
approved