A087340 Primes p such that the sum of the digits of p as well as 1 plus the product of its digits are also primes.

2, 11, 23, 29, 41, 43, 47, 61, 67, 89, 223, 227, 229, 263, 269, 281, 463, 643, 661, 821, 827, 883, 887, 1123, 1129, 1163, 1213, 1231, 1237, 1279, 1291, 1297, 1321, 1327, 1361, 1367, 1433, 1439, 1453, 1459, 1471, 1493, 1523, 1543, 1549, 1567, 1613, 1637

Offset: 1

Author

Amarnath Murthy, Sep 06 2003

Keywords

• base
• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A087339.

Programs

Magma

[p: p in PrimesUpTo(1700) | IsPrime(&+Intseq(p)) and IsPrime(1+&*Intseq(p))]; // Bruno Berselli, Apr 09 2013

Mathematica

Select[Select[Prime[Range[280]], PrimeQ[Plus@@IntegerDigits[ # ]]&], PrimeQ[Times@@IntegerDigits[ # ]+1]&] (from Harvey Dale)

Formula

A066725 INTERSECT A046704. - R. J. Mathar, Aug 26 2007

Extensions

Edited and extended by Robert G. Wilson v, Sep 07 2003