A225863 Primes for which both sum and product of digits are nonprimes.

19, 37, 53, 59, 73, 79, 97, 103, 107, 109, 127, 149, 163, 167, 181, 233, 239, 251, 257, 271, 277, 293, 307, 347, 349, 367, 383, 389, 419, 431, 433, 439, 457, 479, 491, 499, 503, 509, 521, 523, 541, 547, 563, 569, 587, 613, 617, 619, 631, 653, 659, 673

Offset: 1

Author

Jayanta Basu, May 18 2013

Keywords

• nonn
• base

Examples

			79 is a member since neither 7 + 9 = 16 nor 7 * 9 = 63 is prime.
		

Crossrefs

Cf. A046713.

Programs

Mathematica

d[n_]:=IntegerDigits[n]; Select[Prime[Range[122]],!PrimeQ[Plus@@(x=d[#])] && !PrimeQ[Times@@x] &]
Select[Prime[Range[150]],NoneTrue[{Total[IntegerDigits[#]],Times@@ IntegerDigits[ #]},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 20 2020 *)