OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
36 is a member since 3*6 = 18 and (17,19) is a twin prime pair.
MATHEMATICA
prodDig[n_] := Times @@ IntegerDigits[n]; Select[Range[256], And @@ PrimeQ [prodDig[#] + {-1, 1}] &] (* Amiram Eldar, Dec 27 2019 *)
Select[Range[300], AllTrue[Times@@IntegerDigits[#]+{1, -1}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 26 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 08 2003
EXTENSIONS
More terms from David Wasserman, Sep 15 2005
STATUS
approved