%I #15 Oct 14 2024 01:37:12
%S 4481,611402462201343216650033936533361654773516861440000000001,
%T 234195255375503079690400057633265510581087082006817356924774723468294901747510352675631491470712754833859385753600000000000000000001
%N Primes of the form k!/9 + 1.
%C For numbers k for which (9+k!)/9 is prime see A137390.
%H Amiram Eldar, <a href="/A139068/b139068.txt">Table of n, a(n) for n = 1..9</a>
%F a(n) = A139156(A137390(n)). - _Amiram Eldar_, Oct 14 2024
%t a = {}; Do[If[PrimeQ[(n! + 9)/9], AppendTo[a, [(n! + 9)/9]], {n, 1, 150}]; a
%t Select[Range[100]!/9+1,PrimeQ] (* _Harvey P. Dale_, Aug 17 2017 *)
%o (PARI) for(n=6,1e4,if(ispseudoprime(t=n!/9+1),print1(t", "))) \\ _Charles R Greathouse IV_, Jul 15 2011
%Y Cf. A020458, A007749, A082672, A089085, A089130, A117141, A137390, A139056, A139057, A139058, A139059, A139060, A139061, A139062, A139063, A139064, A139065, A139066, A137390, A139070, A139071, A139072, A139156.
%K nonn
%O 1,1
%A _Artur Jasinski_, Apr 07 2008