All the left-truncatable primes

No need to program the topic as M. F. Hasler did already the work in [ Nov 07, 2018 ].
I retrieved the Pari/gp code from the OEIS database.
It is amazing how he achieved it with this very concise oneliners !

{
A024785 = vector(25, n, p=vecsort(concat(apply(p->select(isprime,
vector(9, i, i*10^(n-1)+p)), if(n>1, p)))))
}

and for the number (#) of solutions for each digitlength is given by

{
A050987 = vector(25, n, #p=concat(apply(p->select(isprime,
vector(9, i, i*10^(n-1)+p)), if(n>1, p))))
}