OFFSET
1,1
COMMENTS
Primes in A188914.
MATHEMATICA
f[n_]:=n!+n; lst={}; Do[If[PrimeQ[f[n+1]-f[n]], AppendTo[lst, f[n+1]-f[n]]], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 27 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved