A151893 a(n) = smallest number k such that n! + k-th prime after n! is prime.

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

Author

Artur Jasinski, Apr 12 2008

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..300

Crossrefs

Cf. A002981, A151892, A151894, A151903, A139213, A139214.

Programs

Mathematica

a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n!, k]], k++ ]; Print[k]; AppendTo[a, k], {n, 1, 200}]; a