OFFSET
1,1
COMMENTS
The next term (a(9)) has 121 digits. - Harvey P. Dale, May 02 2015
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 16 2003
EXTENSIONS
More terms from Stefan Steinerberger, Feb 06 2006
STATUS
approved