OFFSET
1,1
COMMENTS
Except for 2, a subset of A030096. - Robert Israel, Jul 18 2019
Primes with zero as a digit are excluded. - Harvey P. Dale, Jan 02 2020
LINKS
Hauke Löffler, Table of n, a(n) for n = 1..1638
EXAMPLE
2 is in the sequence because 2*(2) - 2 = 2 (prime);
359 is in the sequence because 359*(3*5*9) - 2 = 48463 (prime).
MATHEMATICA
ppd2Q[n_]:=Module[{c=n Times@@IntegerDigits[n]-2}, c>0&&PrimeQ[c]]; Select[ Prime[Range[1500]], ppd2Q] (* Harvey P. Dale, Jan 02 2020 *)
PROG
(SageMath) P = Primes(); [ P.unrank(p) for p in range(1000) if is_prime( P.unrank(p) * prod([int(i) for i in str(P.unrank(p)) ] ) - 2 )]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Hauke Löffler, Jul 18 2019
STATUS
approved