OFFSET
1,1
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
EXAMPLE
23 is a member since 23-(2*3)=17. 29 is a member since 29-(2*9)=11.
MATHEMATICA
pdsQ[n_]:=Module[{pr=Times@@IntegerDigits[n]}, pr!=0&&PrimeQ[n-pr]]; Select[Prime[Range[300]], pdsQ] (* Harvey P. Dale, Jul 29 2017 *)
PROG
(PARI) dprod(n)=my(v=digits(n)); prod(i=1, #v, v[i])
is(n)=my(d=dprod(n)); d>0 && isprime(n) && isprime(n-d) \\ Charles R Greathouse IV, Aug 12 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Will Gosnell, Aug 12 2013
EXTENSIONS
a(3), a(10), a(15)-a(57) from Charles R Greathouse IV, Aug 12 2013
STATUS
approved