OFFSET
1,2
COMMENTS
PROG
(PARI) a338073(m)={my(np=1000*m, pused=vectorsmall(np), digp=[]); for(n=1, m, my(found=0); for(k=1, np, if(!pused[k], my(add=digits(prime(k)), pc=concat(digp, add)); if(ispseudoprime(fromdigits(pc)), print1(k, ", "); digp=pc; pused[k]=1; found=1; break))); if(!found, break))};
a338073(66) \\ Hugo Pfoertner, Oct 21 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 20 2020
STATUS
approved