|
%I #27 Mar 28 2024 09:03:46
%S 13,17,19,31,37,53,59,71,73,79,97,103,107,109,127,149,163,167,181,211,
%T 233,239,251,257,271,277,293,307,347,349,367,383,389,419,431,433,439,
%U 457,479,491,499,503,509,521,523,541,547,563,569,587,613,617,619,631
%N Primes with nonprime sums of digits.
%C Primes with nonprime digital sums. [_Juri-Stepan Gerasimov_, Apr 23 2010]
%C Subsequence of primes of A104211. - _Michel Marcus_, May 03 2015
%H Jason Yuen, <a href="/A104213/b104213.txt">Table of n, a(n) for n = 1..10000</a>
%e Sum of digits of prime 13 = 4, which is not prime, so 13 is in the sequence.
%t Select[ Prime[ Range[115]], !PrimeQ[Plus @@ IntegerDigits[ # ]] &] (* _Robert G. Wilson v_, Mar 16 2005 *)
%o (Magma) [p: p in PrimesUpTo(600) | not IsPrime(&+Intseq(p))]; // _Vincenzo Librandi_, May 03 2015
%o (PARI) select(p->!isprime(sumdigits(p)),primes(100)) \\ _Joerg Arndt_, May 03 2015
%Y Cf. A046704 (primes with prime sums of digits), A104211.
%K nonn,base,easy
%O 1,1
%A _Cino Hilliard_, Mar 13 2005
%E Definition clarified by _Jonathan Sondow_, Jun 11 2012
|
