OFFSET
1,1
COMMENTS
a(8) > 10^7, if it exists. - Amiram Eldar, May 08 2024
EXAMPLE
71 is in the sequence because it is the 20th prime (pi(71)=20) and the decimal expansion of 71/20 = 3.55 has only prime digits.
MATHEMATICA
q[r_] := AllTrue[RealDigits[r][[1]] // Flatten, PrimeQ]; With[{m = 10000}, p = Prime[Range[m]]; p[[Position[p/Range[m], _?q, Heads -> False] // Flatten]]] (* Amiram Eldar, May 08 2024 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006
STATUS
approved