|
| |
|
|
A104213
|
|
Nonprime sums of the digits of primes.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Nonadditive primes: sum of digits is a nonprime. Primes with nonprime digital sums. [From Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), Apr 23 2010]
|
|
|
EXAMPLE
| Sum of digits of prime 13=4 not prime so 13 is listed
|
|
|
MATHEMATICA
| Select[ Prime[ Range[115]], !PrimeQ[Plus @@ IntegerDigits[ # ]] &] (from Robert G. Wilson v Mar 16 2005)
|
|
|
PROG
| (PARI) sdprime(n) = { local(x, y); forprime(x=1, n, y=sumdigits(x); if(isprime(y), print1(y", ") ) ) } sumdigits(n) = \ The sum of the digits of n { local(x, j, s=0); x=digits(n); for(j=1, length(x), s+=x[j]; ); return(s) } digits(n) = \ The vector of the digits of n { return(eval(Vec(Str(n)))) }
|
|
|
CROSSREFS
| Sequence in context: A098095 A180530 A059500 * A178550 A105896 A112741
Adjacent sequences: A104210 A104211 A104212 * A104214 A104215 A104216
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Mar 13 2005
|
| |
|
|
