

A225677


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS



LINKS



EXAMPLE

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


MATHEMATICA

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


CROSSREFS



KEYWORD

nonn,base


AUTHOR



STATUS

approved



