A139075 Primes p arising in A139074.
3, 2, 3, 31, 1009, 2, 5702401, 631
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a = {}; Do[k = 1; While[ ! PrimeQ[(Prime[k]! + n)/n], k++ ]; AppendTo[a, Prime[(Prime[k]! + n)/n]], {n, 1, 8}]; a
Comments