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