1000
double
0
primes #(0: n_primes)
    digits
        dup
        is-prime #(num)
    m2
    min
f4
unlines