Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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