%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