%I #17 Jul 12 2024 19:59:15
%S 2,6,7,10,13,15,24,29,33,44,98,300,548,942,1099,1176,1632,1794,3676,
%T 3768,4804,6499,8049,8164,8917,10270,11610,11959
%N Numbers k such that 9*k! + 1 is prime.
%C Tested to 4500. - _Robert G. Wilson v_, Sep 28 2010
%C a(22) > 5235. - _Jinyuan Wang_, Feb 05 2020
%H <a href="/index/Pri#primepop">Index entries for sequences related to numbers of primes of the form k*n!+-1</a>
%t fQ[n_] := PrimeQ[9 n! + 1]; k = 0; lst = {}; While[k < 1501, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst
%o (PARI) is(k) = ispseudoprime(9*k!+1); \\ _Jinyuan Wang_, Feb 05 2020
%Y Cf. A002981, A051915, A076679, A076680, A076681, A076682, A076683, A178488, A126896.
%K nonn,more
%O 1,1
%A _Robert G. Wilson v_, Sep 13 2010
%E a(17)-a(20) from _Robert G. Wilson v_, Sep 28 2010
%E a(21) from _Jinyuan Wang_, Feb 05 2020
%E a(22) from _Michael S. Branicky_, May 27 2023
%E a(23)-a(28) from _Michael S. Branicky_, Jul 12 2024