|
|
A130807
|
|
Prime p > a(n-1) such that p + n! is prime, starting with a(1) = 2.
|
|
1
|
|
|
2, 3, 5, 7, 11, 13, 19, 23, 31, 41, 59, 83, 109, 127, 149, 163, 167, 173, 241, 271, 317, 397, 401, 461, 463, 577, 607, 653, 683, 739, 797, 857, 883, 887, 941, 1093, 1327, 1601, 1949, 2281, 2383, 2593, 2647, 2753, 2953, 3067, 3089, 3469, 3533, 3709
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
Edited and extended by T. D. Noe, Aug 23 2007
|
|
STATUS
|
approved
|
|
|
|