0,5

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

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

Sequence in context: A343534 A275383 A206762 * A225637 A185268 A279630

Adjacent sequences: A212278 A212279 A212280 * A212282 A212283 A212284

nonn

Vladimir Shevelev, Feb 14 2013

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

approved