login
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

%I #15 Sep 08 2022 08:45:11

%S 2,11,23,29,41,43,47,61,67,89,223,227,229,263,269,281,463,643,661,821,

%T 827,883,887,1123,1129,1163,1213,1231,1237,1279,1291,1297,1321,1327,

%U 1361,1367,1433,1439,1453,1459,1471,1493,1523,1543,1549,1567,1613,1637

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

%H Vincenzo Librandi, <a href="/A087340/b087340.txt">Table of n, a(n) for n = 1..1000</a>

%F A066725 INTERSECT A046704. - _R. J. Mathar_, Aug 26 2007

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

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

%Y Cf. A087339.

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Sep 06 2003

%E Edited and extended by _Robert G. Wilson v_, Sep 07 2003