A124375 Numbers k such that A003422(k+1)/2 is prime.
2, 3, 4, 7, 8, 9, 10, 29, 75, 162, 270, 272, 353, 720, 1795, 3732, 4768, 9315, 12220, 41531
Offset: 1
Links
- Hisanori Mishima, Factorizations of many number sequences.
- Eric Weisstein's World of Mathematics, Left Factorial.
Programs
-
Mathematica
f=0;Do[f=f+n!;If[PrimeQ[f/2],Print[{n,f/2}]],{n,0,353}] Flatten[Position[Accumulate[(Range[0,12220]!)]/2,?PrimeQ]]-1 (* _Harvey P. Dale, Jul 02 2019 *)
Extensions
More terms from Ryan Propper, Feb 07 2008
a(20) from Jinyuan Wang, Mar 20 2021
Comments