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
KEYWORD
nonn,base,easy
AUTHOR
Cino Hilliard, Mar 13 2005
EXTENSIONS
Definition clarified by Jonathan Sondow, Jun 11 2012
STATUS
approved