A139188 Greater twin prime member A006512 of the form k!/n + 1.
7, 13, 241, 7, 7983361, 5
Offset: 1
Programs
-
Mathematica
a = {}; Do[k = 1; While[ ! (PrimeQ[(k! - n)/n] && PrimeQ[(k! + n)/n]), k++ ]; AppendTo[a, (k! + n)/n], {n, 1, 6}]; a
Comments