|
%I #6 May 13 2013 01:48:48
%S 2,5,604801,6652801,1037836801,14529715201,59281238016001,
%T 8515157028618240001
%N Primes of the form (6+k!)/6.
%C Numbers k for which (4+k!)/4 is prime see A139063.
%t a = {}; Do[If[PrimeQ[(n! + 6)/6], AppendTo[a, (n! + 6)/6]], {n, 1, 50}]; a
%o (PARI) for(k=3,1e3,if(ispseudoprime(t=k!/6+1),print1(t", "))) \\ _Charles R Greathouse IV_, Jul 15 2011
%Y Cf. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458.
%K nonn
%O 1,1
%A _Artur Jasinski_, Apr 07 2008
|
