A104213 Primes with nonprime sums of digits.

13, 17, 19, 31, 37, 53, 59, 71, 73, 79, 97, 103, 107, 109, 127, 149, 163, 167, 181, 211, 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

Offset: 1

Author

Cino Hilliard, Mar 13 2005

Keywords

• nonn
• base
• easy

Comments

Primes with nonprime digital sums. [Juri-Stepan Gerasimov, Apr 23 2010]

Subsequence of primes of A104211. - Michel Marcus, May 03 2015

Examples

			Sum of digits of prime 13 = 4, which is not prime, so 13 is in the sequence.
		

Links

• Jason Yuen, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A046704 (primes with prime sums of digits), A104211.

Programs

Magma

[p: p in PrimesUpTo(600) | not IsPrime(&+Intseq(p))]; // Vincenzo Librandi, May 03 2015

Mathematica

Select[ Prime[ Range[115]], !PrimeQ[Plus @@ IntegerDigits[ # ]] &] (* Robert G. Wilson v, Mar 16 2005 *)

PARI

select(p->!isprime(sumdigits(p)),primes(100)) \\ Joerg Arndt, May 03 2015

Extensions

Definition clarified by Jonathan Sondow, Jun 11 2012