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,5

Links

Table of n, a(n) for n=0..75.

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 *)

Crossrefs

Sequence in context: A275383 A351627 A206762 * A225637 A185268 A279630

Adjacent sequences: A212278 A212279 A212280 * A212282 A212283 A212284

Keyword

nonn

Author

Vladimir Shevelev, Feb 14 2013

Extensions

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

Status

approved