A225677 Primes of the form p - (product of digits of p), where p is a prime.

11, 17, 19, 31, 37, 59, 101, 103, 107, 109, 113, 173, 179, 193, 199, 211, 227, 233, 239, 241, 257, 263, 307, 311, 317, 331, 383, 389, 397, 401, 409, 419, 439, 479, 499, 503, 509, 521, 547, 563, 571, 577, 601, 607, 613, 617, 659, 691, 701, 709, 719, 733, 809

Offset

1,1

Comments

Primes generated by A225319.

Links

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

Example

17 is in the list since 17 = 23 - (2*3).

Mathematica

Union[Select[Table[p=Prime[n]; p-Times@@IntegerDigits[p], {n, 150}], PrimeQ]]

Crossrefs

Cf. A157677, A225303, A225319.

Sequence in context: A226682 A111257 A032677 * A344477 A230654 A226686

Adjacent sequences: A225674 A225675 A225676 * A225678 A225679 A225680

Keyword

nonn,base

Author

Jayanta Basu, May 12 2013

Status

approved