A214837 Primes not expressible as the sum of a prime and its digit sum.

2, 3, 5, 7, 11, 19, 23, 31, 37, 41, 43, 53, 59, 67, 71, 89, 97, 101, 109, 127, 131, 139, 149, 151, 157, 167, 179, 193, 197, 199, 211, 223, 227, 229, 233, 239, 251, 257, 263, 269, 277, 283, 311, 313, 331, 337, 347, 349, 353, 359, 367, 373, 379, 389, 401, 419

Offset: 1

Author

Jayanta Basu, May 03 2013

Keywords

• nonn
• base

Comments

Primes not in A048520.

Examples

			19 is in the list since there exists no prime p such that p+digit sum of p = 19.
		

Crossrefs

Cf. A006378, A048520.

Programs

Mathematica

primeList = Prime[Range[81]]; Complement[primeList, Sort[Select[Table[p + Total[IntegerDigits[p]], {p, primeList}], PrimeQ]]]