A178606 Smallest prime > n!! (double factorial of n).
2, 3, 5, 11, 17, 53, 107, 389, 947, 3847, 10399, 46091, 135151, 645131, 2027033, 10321937, 34459429, 185794579, 654729139, 3715891217, 13749310577, 81749606417, 316234143227, 1961990553613, 7905853580633, 51011754393671
Offset: 1
Keywords
Programs
-
Mathematica
PrimeNext[n_]:=Module[{k},k=n+1;While[ !PrimeQ[k],k++ ];k]; Table[PrimeNext[n!! ],{n,40}]