A121931 Numbers k such that (k!)^8 + 1 is prime.
0, 1, 2, 58, 75, 347
Offset: 1
Programs
-
Mathematica
Do[f=(n!)^8+1;If[PrimeQ[f],Print[{n,f}]],{n,1,75}]
Extensions
a(6) from Ryan Propper, Jan 03 2008
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Do[f=(n!)^8+1;If[PrimeQ[f],Print[{n,f}]],{n,1,75}]
Comments