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