A151892 Numbers m such that m! + (next prime after m!) is prime.

1, 2, 3, 4, 6, 7, 14, 15, 20, 25, 32, 34, 35, 67, 89, 191, 316, 411, 1213, 1280

Offset

1,2

Comments

Next term exceeds 600. - Robert G. Wilson v, Jun 11 2010

Links

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

Mathematica

a = {}; Do[If[PrimeQ[n! + NextPrime[n! ]], AppendTo[a, n]], {n, 1, 200]; a (* Artur Jasinski *)
Select[Range[420], PrimeQ[#!+NextPrime[#!]]&] (* Harvey P. Dale, Aug 20 2021 *)

Crossrefs

Cf. A002981, A151894, A151893, A151903.

Sequence in context: A339591 A096477 A039059 * A162570 A073639 A130776

Adjacent sequences: A151889 A151890 A151891 * A151893 A151894 A151895

Keyword

nonn,more

Author

Artur Jasinski, Apr 12 2008

Extensions

a(17)-a(18) from Robert G. Wilson v, Jun 11 2010

a(19)-a(20) from Michael S. Branicky, May 27 2023

Status

approved