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

Links

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A087339.

Sequence in context: A045386 A084354 A066725 * A246622 A237813 A106927

Adjacent sequences: A087337 A087338 A087339 * A087341 A087342 A087343

Keyword

base,nonn

Author

Amarnath Murthy, Sep 06 2003

Extensions

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

Status

approved