A212281 Minimal m >= 1 such that n!/m+1 is prime.

1, 1, 1, 1, 2, 2, 3, 2, 2, 5, 6, 1, 8, 2, 5, 7, 2, 3, 26, 5, 8, 4, 16, 3, 8, 4, 10, 1, 13, 8, 2, 19, 4, 11, 11, 7, 3, 1, 12, 13, 4, 1, 24, 2, 8, 5, 9, 25, 16, 2, 12, 55, 26, 84, 17, 22, 44, 22, 37, 7, 48, 4, 37, 18, 7, 39, 16, 19, 7, 15, 19, 36, 30, 1, 14, 15

Offset: 0

Author

Vladimir Shevelev, Feb 14 2013

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A212282.

Programs

Mathematica

a[n_] := Block[{f=n!,j=1}, While[! PrimeQ[1+Floor[f/j]], j++]; j]; a/@Range[0,75] (* Giovanni Resta, Feb 14 2013 *)

Extensions

a(13)-a(75) from Giovanni Resta, Feb 14 2013