A049985 Primes of form k! - (k-1)! - 1.
3, 17, 599, 35279, 322559, 439084799, 293999475161295508340735999999
Offset: 1
Keywords
Programs
-
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 *) Select[#[[2]]-#[[1]]-1&/@Partition[Range[100]!,2,1],PrimeQ] (* Harvey P. Dale, Feb 17 2015 *)
Comments