A063833 !n - 3 is prime.
1, 4, 5, 6, 13, 14, 20, 66, 91, 124, 212, 282, 460
Offset: 1
Crossrefs
Cf. A063508.
Programs
-
Mathematica
Do[ If[ PrimeQ[ Sum[ k!, {k, 0, n - 1} ] - 3 ], Print[ n ] ], {n, 1, 800} ] Position[Accumulate[Range[0,500]!],?(PrimeQ[#-3]&)]//Flatten (* _Harvey P. Dale, Sep 20 2019 *)
Comments