A143713 - OEIS

%I #22 Jun 09 2023 07:39:11

%S 3,4,5,6,10,22,31,92,174,237,886,1075,1357,2428,3700,6319

%N Numbers k such that k! - prime(k-1) yields a prime.

%t Select[Range[2,1000],PrimeQ[#!-Prime[#-1]]&] (* _Harvey P. Dale_, Oct 31 2013 *)

%o (PARI) for(n=2,1000, if(isprime(n! - prime(n-1)), print1(n, ", ")))

%Y Cf. A064401.

%K nonn,more

%O 1,1

%A _Alexander R. Povolotsky_, Aug 29 2008

%E a(11) from _Harvey P. Dale_, Oct 31 2013

%E a(12)-a(15) from _Metin Sariyar_, Sep 27 2019

%E a(16) from _Michael S. Branicky_, Jun 08 2023