A084751 Primes of the form k! - p, where p is the smallest prime > k.

19, 113, 3628789, 39916787, 479001587, 87178291183, 8841761993739701954543615999969, 4274883284060025564298013753389399649690343788366813724671999999999941

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 16 2003

Keywords

• nonn

Comments

The next term (a(9)) has 121 digits. - Harvey P. Dale, May 02 2015

Crossrefs

Cf. A084750.

Programs

Mathematica

For[n = 1, n < 60, n++, If[PrimeQ[n! - Prime[PrimePi[n] + 1]], Print[n! - Prime[PrimePi[n] + 1]]]] (Steinerberger)
Select[Table[n!-NextPrime[n],{n,100}],PrimeQ] (* Harvey P. Dale, May 02 2015 *)

Extensions

More terms from Stefan Steinerberger, Feb 06 2006