A092518 Primes p with no zero digits such that (the digit product of p) plus p is also prime.

23, 29, 61, 67, 83, 163, 233, 239, 283, 293, 347, 349, 431, 439, 443, 449, 499, 563, 569, 613, 617, 619, 653, 659, 677, 683, 743, 929, 941, 1123, 1163, 1217, 1231, 1237, 1249, 1289, 1297, 1321

Offset: 1

Author

Ray G. Opao, Apr 06 2004

Keywords

• nonn
• base

Examples

			a(2) = 29: 29+2(9) = 29+18 = 47 which is prime.
		

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A053666.

Programs

Mathematica

Select[Prime[Range[300]],DigitCount[#,10,0]==0&&PrimeQ[#+Times@@ IntegerDigits[ #]]&] (* Harvey P. Dale, Jan 27 2020 *)

PARI

dprod(n)=n=digits(n); prod(i=1, #n, n[i])
is(n)=my(d=dprod(n)); d && isprime(n+d) && isprime(n) \\ Charles R Greathouse IV, Dec 27 2013

Extensions

Definition clarified by Harvey P. Dale, Jan 27 2020