|
%I #16 Jul 05 2018 01:51:50
%S 3,19,113,709,5023,40289,362867,3628789,39916787,479001587,6227020777,
%T 87178291183,1307674367953,20922789887947,355687428095941,
%U 6402373705727959,121645100408831899
%N Largest prime < n!-1.
%t NextPrime[#,-1]&/@(Range[3,25]!-1) (* _Harvey P. Dale_, May 04 2014 *)
%o (PARI) A037154(n) = {local(r);if(n<3,1,r=n!-2;while(!isprime(r),r--);r)} \\ _Michael B. Porter_, Feb 02 2010
%K nonn
%O 3,1
%A _Jud McCranie_
|
