

A097223


Prime numbers p such that p = prime(n) and n = product of the digits of p.


10




OFFSET

1,1


COMMENTS

This sequence is a subsequence of A097220, so the sequence is also a subsequence of A097221. Next term if it exists is greater than 4333000000.


LINKS

Chris K. Caldwell and G. L. Honaker, Jr., 2475989


EXAMPLE

2475989 is in the sequence because 2475989 is (2*4*7*5*9*8*9)th prime.


MATHEMATICA

v={}; Do[If[h=IntegerDigits[Prime[n]]; l=Length[h]; p=Product[h[[k]], {k, l}]; p==n, v=Append[v, Prime[n]]; Print[v]], {n, 205000000}]


PROG

(PARI) isok(p) = isprime(p) && (primepi(p) == vecprod(digits(p))); \\ Michel Marcus, Jan 27 2019


CROSSREFS



KEYWORD

base,fini,full,nonn,bref


AUTHOR



STATUS

approved



