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