OFFSET
1,1
PROG
(PARI) lista(nn) = my(va=vector(nn)); va[1] = 2; for (n=2, nn, my(p=nextprime(va[n-1]+1)); while (!ispseudoprime(p+n!), p = nextprime(p+1)); va[n] = p; ); va; \\ Michel Marcus, Mar 15 2023
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Aug 20 2007
EXTENSIONS
Edited and extended by T. D. Noe, Aug 23 2007
Name clarified by Michel Marcus, Mar 15 2023
STATUS
approved