OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
dpQ[n_]:=Module[{idn=IntegerDigits[n]}, PrimeQ[Abs[Total[idn]- Times@@ idn]]]; Select[Prime[Range[400]], dpQ] (* Harvey P. Dale, Feb 20 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Umut Uludag, Jan 29 2010
STATUS
approved