A139064 Primes of the form (7+k!)/7.
5702401, 186810624001, 2988969984001, 2215887149047283712000001, 1476163995198020704238093048217600000001, 19811874077955690819705574245769915192271839538955347505831613562880000000000001
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..12
Crossrefs
Programs
-
Mathematica
a = {}; Do[If[PrimeQ[(n! + 7)/7], AppendTo[a, (n! + 7)/7]], {n, 1, 50}]; a
-
PARI
for(k=7,1e3,if(ispseudoprime(t=k!/7+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011
Comments