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 A214837 #20 Aug 26 2021 08:54:44
%S A214837 2,3,5,7,11,19,23,31,37,41,43,53,59,67,71,89,97,101,109,127,131,139,
%T A214837 149,151,157,167,179,193,197,199,211,223,227,229,233,239,251,257,263,
%U A214837 269,277,283,311,313,331,337,347,349,353,359,367,373,379,389,401,419
%N A214837 Primes not expressible as the sum of a prime and its digit sum.
%C A214837 Primes not in A048520.
%e A214837 19 is in the list since there exists no prime p such that p+digit sum of p = 19.
%t A214837 primeList = Prime[Range[81]]; Complement[primeList, Sort[Select[Table[p + Total[IntegerDigits[p]], {p, primeList}], PrimeQ]]]
%Y A214837 Cf. A006378, A048520.
%K A214837 nonn,base
%O A214837 1,1
%A A214837 _Jayanta Basu_, May 03 2013