login
A231901
Least k > n such that k!/n! + 1 is a prime, or 0 if no such k exists.
3
1, 2, 4, 4, 6, 6, 11, 9, 11, 10, 20, 12, 15, 15, 16, 16, 18, 18, 23, 21, 22, 22, 40, 25, 27, 31, 28, 28, 37, 30, 42, 38, 34, 36, 42, 36, 110, 39, 43, 40, 42, 42, 56, 46, 50, 46, 55, 65, 51, 51, 53, 52, 55, 55, 73, 58, 58, 58, 60, 60, 63, 63, 177, 68, 70, 66, 82, 72
OFFSET
0,2
LINKS
MATHEMATICA
Table[k = n + 1; While[! PrimeQ[k!/n! + 1], k++]; k, {n, 100}] (* T. D. Noe, Nov 18 2013 *)
PROG
(PARI) a(n) = {my(m = n+1); while(! isprime(m!/n! +1), m++); m; } \\ Michel Marcus, Mar 07 2014; corrected Jun 13 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Nov 15 2013
STATUS
approved