A151903 a(n) = smallest number k such that n! + k-th prime after n is prime.
1, 1, 1, 1, 1, 1, 1, 5, 3, 1, 2, 5, 13, 2, 8, 3, 4, 5, 16, 2, 3, 3, 16, 23, 4, 8, 6, 10, 38, 18, 20, 11, 1, 14, 7, 21, 52, 2, 13, 4, 5, 12, 6, 1, 38, 12, 36, 1, 8, 3, 43, 1, 4, 32, 4, 19, 12, 45, 45, 41, 118, 14, 40, 1, 26, 43, 2, 4, 13, 15, 128, 6, 1, 20, 29, 9, 14, 9, 36, 6, 104, 9, 14, 26, 9
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..402
Programs
-
Mathematica
a = {}; Do[k = 1; While[ ! PrimeQ[n! + NextPrime[n, k]], k++ ]; AppendTo[a, k], {n, 1, 200}]; a
Comments