|
%I #25 May 27 2023 16:44:22
%S 1,2,3,4,6,7,14,15,20,25,32,34,35,67,89,191,316,411,1213,1280
%N Numbers m such that m! + (next prime after m!) is prime.
%C Next term exceeds 600. - _Robert G. Wilson v_, Jun 11 2010
%t a = {}; Do[If[PrimeQ[n! + NextPrime[n! ]], AppendTo[a, n]], {n, 1, 200]; a (* _Artur Jasinski_ *)
%t Select[Range[420],PrimeQ[#!+NextPrime[#!]]&] (* _Harvey P. Dale_, Aug 20 2021 *)
%Y Cf. A002981, A151894, A151893, A151903.
%K nonn,more
%O 1,2
%A _Artur Jasinski_, Apr 12 2008
%E a(17)-a(18) from _Robert G. Wilson v_, Jun 11 2010
%E a(19)-a(20) from _Michael S. Branicky_, May 27 2023
|
