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

Links

Table of n, a(n) for n=1..52.

Example

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

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 *)

Crossrefs

Cf. A046713.

Sequence in context: A332756 A245363 A109639 * A332884 A161705 A131600

Adjacent sequences: A225860 A225861 A225862 * A225864 A225865 A225866

Keyword

nonn,base

Author

Jayanta Basu, May 18 2013

Status

approved