A063508 Numbers n such that !n + 2n - 1 is prime.
1, 2, 4, 5, 7, 13, 40, 124, 758, 940
Offset: 1
Keywords
Crossrefs
Cf. A063106.
Programs
-
Mathematica
Do[ If[ PrimeQ[ Sum[ k!, {k, 0, n - 1} ] + 2n - 1 ], Print[ n ] ], {n, 1, 883} ]