A143713 Numbers k such that k! - prime(k-1) is prime.

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

Offset: 1

Author

Alexander R. Povolotsky, Aug 29 2008

Keywords

• nonn
• more

Crossrefs

Cf. A064401.

Programs

Mathematica

Select[Range[2,1000],PrimeQ[#!-Prime[#-1]]&] (* Harvey P. Dale, Oct 31 2013 *)

PARI

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

Extensions

a(11) from Harvey P. Dale, Oct 31 2013

a(12)-a(15) from Metin Sariyar, Sep 27 2019

a(16) from Michael S. Branicky, Jun 08 2023

a(17) from Michael S. Branicky, Apr 23 2025