OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
József Bölcsföldi, György Birkás, Miklós Ferenczi, Bölcsföldi-Birkás-Ferenczi prime numbers (Full prime numbers), International Journal of Mathematics and Statistics Invention (IJMSI), Volume 5, Issue 2, February 2017, pp. 4-7.
PROG
(PARI) isok(p) = isprime(p) && (d=digits(p)) && isprime(#d) && vecmin(vector(#d, k, isprime(d[k]))); \\ Michel Marcus, Sep 21 2017
(Python)
from sympy import isprime, prime
from itertools import count, islice, product
def agen(): yield from filter(isprime, (int("".join(s)+e) for i in count(1) for s in product("2357", repeat=prime(i)-1) for e in "37"))
print(list(islice(agen(), 42))) # Michael S. Branicky, Jun 23 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Nov 12 2006
EXTENSIONS
Terms 773, 23753 inserted by Georg Fischer, Jun 23 2022
STATUS
approved