login
A151893
a(n) = smallest number k such that n! + k-th prime after n! is prime.
4
1, 1, 1, 1, 2, 1, 1, 2, 4, 10, 2, 4, 3, 1, 1, 4, 2, 9, 14, 1, 6, 14, 6, 5, 1, 11, 3, 35, 14, 20, 4, 1, 10, 1, 1, 6, 37, 33, 25, 17, 62, 2, 5, 26, 12, 10, 11, 37, 9, 9, 4, 50, 32, 9, 9, 7, 9, 47, 10, 40, 80, 60, 3, 18, 6, 2, 1
OFFSET
1,5
LINKS
MATHEMATICA
a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n!, k]], k++ ]; Print[k]; AppendTo[a, k], {n, 1, 200}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 12 2008
STATUS
approved