%I #20 Oct 14 2024 01:37:09

%S 631,45361,453601,59875201,10897286401,304112751022080001,

%T 3231502092360622080001,77556050216654929920001,

%U 1105220249217462744317952000001,332283946848556096005453226376826986289954816000000001

%N Primes of the form (8+k!)/8.

%C For numbers k for which (8+k!)/8 is prime see A151913.

%C The next term (a(11)) has 174 digits. - _Harvey P. Dale_, May 10 2016

%H Amiram Eldar, <a href="/A139066/b139066.txt">Table of n, a(n) for n = 1..11</a>

%F a(n) = A139155(A151913(n)). - _Amiram Eldar_, Oct 14 2024

%t a = {}; Do[If[PrimeQ[(n! + 8)/8], AppendTo[a, (n! + 8)/8]], {n, 1, 50}]; a

%t Select[(8+Range[50]!)/8,PrimeQ] (* _Harvey P. Dale_, May 10 2016 *)

%o (PARI) for(k=4,1e3,if(ispseudoprime(t=k!/8+1),print1(t", "))) \\ _Charles R Greathouse IV_, Jul 15 2011

%Y Cf. A020458, A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139062, A139063, A139064, A139065, A139155, A151913.

%K nonn

%O 1,1

%A _Artur Jasinski_, Apr 07 2008

%E Corrected link to sequence of indexes. - _Serge Batalov_, Feb 17 2015

%E a(10) from _Harvey P. Dale_, May 10 2016