%I #17 Sep 08 2022 08:45:33
%S 1009,72577,7983361,17435658241,24329020081766401,
%T 5170403347776995328001,
%U 23924444173096038912392632299131543012876746752000000001
%N Primes of the form (5+k!)/5.
%C For numbers k for which (5+k!)/5 is prime see A139058.
%t a = {}; Do[If[PrimeQ[(n! + 5)/5], AppendTo[a, (n! + 5)/5]], {n, 1, 50}]; a
%t Select[(5+Range[50]!)/5,PrimeQ] (* _Harvey P. Dale_, Dec 04 2020 *)
%o (Magma) [ a: n in [1..50] | IsPrime(a) and b mod 5 eq 0 where a is b div 5 where b is Factorial(n)+5 ];
%o (PARI) for(k=5,1e3,if(ispseudoprime(t=(5+k!)/5),print1(t", "))) \\ _Charles R Greathouse IV_, Jul 15 2011
%Y Cf. A082672, A089085, A089130, A117141, A007749, A139056-A139066, A139068, A137390, A139070-A139075.
%K nonn
%O 1,1
%A _Artur Jasinski_, Apr 07 2008
|