|
|
A165691
|
|
Primes p such that pi(p) is the product of the first digit of p and the rest of the number.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A subsequence of A112013. There is no further term up to 3*10^10.
|
|
LINKS
|
|
|
EXAMPLE
|
619=prime(6*19), so 619 is in the sequence.
|
|
MATHEMATICA
|
Do[If[h=IntegerDigits[Prime[m]]; m==h[[1]]*FromDigits[Delete[h, 1]],
Print[Prime[m]}]], {m, 355000}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,more,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|