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,1

Comments

Primes not in A048520.

Links

Table of n, a(n) for n=1..56.

Example

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

Mathematica

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

Crossrefs

Cf. A006378, A048520.

Sequence in context: A246044 A039986 A278694 * A079346 A228062 A332216

Adjacent sequences: A214834 A214835 A214836 * A214838 A214839 A214840

Keyword

nonn,base

Author

Jayanta Basu, May 03 2013

Status

approved