A037154 Largest prime < n!-1.

3, 19, 113, 709, 5023, 40289, 362867, 3628789, 39916787, 479001587, 6227020777, 87178291183, 1307674367953, 20922789887947, 355687428095941, 6402373705727959, 121645100408831899

Offset

3,1

Links

Table of n, a(n) for n=3..19.

Mathematica

NextPrime[#, -1]&/@(Range[3, 25]!-1) (* Harvey P. Dale, May 04 2014 *)

Prog

(PARI) A037154(n) = {local(r); if(n<3, 1, r=n!-2; while(!isprime(r), r--); r)} \\ Michael B. Porter, Feb 02 2010

Crossrefs

Sequence in context: A132959 A360230 A253811 * A037774 A037662 A116979

Adjacent sequences: A037151 A037152 A037153 * A037155 A037156 A037157

Keyword

nonn

Author

Jud McCranie

Status

approved