|
%I #8 Aug 17 2017 11:18:28
%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.
%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. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458, A139068, A137390, A139070, A139071, A139072.
%K nonn,bref
%O 1,1
%A _Artur Jasinski_, Apr 07 2008
|
