A139062
Primes of the form (6+k!)/6.
Original entry on oeis.org
2, 5, 604801, 6652801, 1037836801, 14529715201, 59281238016001, 8515157028618240001
Offset: 1
Cf.
A020458,
A082672,
A089085,
A089130,
A117141,
A007749,
A139056,
A139057,
A139058,
A139059,
A139060,
A139061,
A139063,
A139064,
A139065,
A139066,
A139153.
-
a = {}; Do[If[PrimeQ[(n! + 6)/6], AppendTo[a, (n! + 6)/6]], {n, 1, 50}]; a
-
for(k=3,1e3,if(ispseudoprime(t=k!/6+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011
A139064
Primes of the form (7+k!)/7.
Original entry on oeis.org
5702401, 186810624001, 2988969984001, 2215887149047283712000001, 1476163995198020704238093048217600000001, 19811874077955690819705574245769915192271839538955347505831613562880000000000001
Offset: 1
Cf.
A020458,
A082672,
A089085,
A089130,
A117141,
A007749,
A139056,
A139057,
A139058,
A139059,
A139060,
A139061,
A139062,
A139063,
A139065,
A139066,
A139154.
-
a = {}; Do[If[PrimeQ[(n! + 7)/7], AppendTo[a, (n! + 7)/7]], {n, 1, 50}]; a
-
for(k=7,1e3,if(ispseudoprime(t=k!/7+1),print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011
Comments