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

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

Offset

1,1

Links

Table of n, a(n) for n=1..16.

Mathematica

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

Prog

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

Crossrefs

Cf. A064401.

Sequence in context: A103033 A099561 A110300 * A271821 A261459 A215249

Adjacent sequences: A143710 A143711 A143712 * A143714 A143715 A143716

Keyword

nonn,more

Author

Alexander R. Povolotsky, Aug 29 2008

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

Status

approved