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

Comments

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

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

Links

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

Example

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(600) | not IsPrime(&+Intseq(p))]; // Vincenzo Librandi, May 03 2015
(PARI) select(p->!isprime(sumdigits(p)), primes(100)) \\ Joerg Arndt, May 03 2015

Crossrefs

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

Sequence in context: A249953 A180530 A059500 * A178550 A325934 A105896

Adjacent sequences: A104210 A104211 A104212 * A104214 A104215 A104216

Keyword

nonn,base,easy

Author

Cino Hilliard, Mar 13 2005

Extensions

Definition clarified by Jonathan Sondow, Jun 11 2012

Status

approved