The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #25 Sep 15 2023 11:58:16
%S 4,6,14,126,184,634,1354,1550,6710
%N Numbers k such that k! - k^2 - 1 is prime.
%t Select[Range[4, 1600, 2], PrimeQ[#! - #^2 - 1] &] (* _Amiram Eldar_, Sep 12 2023 *)
%o (Python)
%o from gmpy2 import *
%o print([k for k in range(0,2000) if is_prime((fac(n)- k*k - 1))])
%Y Cf. A073443.
%K nonn,hard,more
%O 1,1
%A _Darío Clavijo_, Sep 12 2023
%E a(9) from _Michael S. Branicky_, Sep 14 2023