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,1

Links

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

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A053666.

Sequence in context: A063980 A046124 A157677 * A355983 A110584 A115396

Adjacent sequences: A092515 A092516 A092517 * A092519 A092520 A092521

Keyword

nonn,base

Author

Ray G. Opao, Apr 06 2004

Extensions

Definition clarified by Harvey P. Dale, Jan 27 2020

Status

approved