A049984 Primes of the form n! - (n-1)! + 1.
2, 5, 19, 97, 601, 35281, 5748019201, 2311256907767808001, 594596384994354462720001, 5382999938946608755288342267304597177897268019200000000001, 136332557214406957166109544809874331662074014454506289616400595025920000000000001
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 *)
Comments