OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
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