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}]
A(4,5) = 3 because 1+5^16 = 152587890626 = 2 * 2593 * 29423041, which has 3 prime factors. The array begins: ================================================================ ....|n=0|n=1|n=2|n=3|n=4|n=5|n=6|n=7|n=8|n=9|.10|.11|comment ====|===|===|===|===|===|===|===|===|===|===|===|===|=========== k=0.|.0.|.1.|.1.|.2.|.1.|.2.|.1.|.3.|.2.|.2.|.1.|.3.|A001222 k=1.|.0.|.1.|.1.|.2.|.1.|.2.|.1.|.3.|.2.|.2.|.1.|.2.|A193330 k=2.|.0.|.1.|.1.|.2.|.1.|.2.|.1.|.2.|.2.|.3.|.2.|.2.|A193929 k=3.|.0.|.1.|.1.|.3.|.1.|.3.|.2.|.3.|.3.|.2.|.2.|.3.|A194003 k=4.|.0.|.1.|.1.|.2.|.2.|.3.|.3.|.3.|.3.|.2.|.5.|.3.|not in OEIS k=5.|.0.|.1.|.2.|.2.|.2.|.4.|.3.|.4.|.3.|.2.|.4.|.4.|not in OEIS ================================================================
Comments