A121859 Numbers n such that n!*3^n - 1 is prime.
1, 2, 12, 20, 38, 45, 46, 105, 117, 143, 214, 1835, 2931, 7703, 11542, 19225
Offset: 1
Keywords
Programs
-
Mathematica
Do[f=n!*3^n-1;If[PrimeQ[f],Print[{n,f}]],{n,1,25000}]
Extensions
a(12)-a(16) from Robert Price, Jul 22 2013
Comments