|
%I #10 Feb 14 2013 06:28:06
%S 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,
%T 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,
%U 37,7,48,4,37,18,7,39,16,19,7,15,19,36,30,1,14,15
%N Minimal m>=1 such that n!/m+1 is prime.
%t a[n_] := Block[{f=n!,j=1}, While[! PrimeQ[1+Floor[f/j]], j++]; j]; a/@Range[0,75] (* _Giovanni Resta_, Feb 14 2013 *)
%K nonn
%O 0,5
%A _Vladimir Shevelev_, Feb 14 2013
%E a(13)-a(75) from _Giovanni Resta_, Feb 14 2013
|
