%I #11 Oct 07 2019 15:52:21
%S 1,4,6,8,30,40,164,176,189,218,370,597,603,1473,2176,2436,2548,2732,
%T 4758,5574
%N Numbers n such that n*n! + (smallest prime >= n) is prime.
%C Note that Maple, PARI etc. have different notions of what "next prime" means!
%F A096986 INTERSECT A018252. - _R. J. Mathar_, Aug 13 2007
%t Select[Range[5600],PrimeQ[# (#!) +NextPrime[#-1]]&] (* _Harvey P. Dale_, Oct 07 2019 *)
%o (PARI) for(x=1,1000,if(isprime(x*x!+nextprime(x)),print1(x,",")))
%Y Cf. A096986.
%K nonn,more
%O 1,2
%A _Jorge Coveiro_, Jul 24 2006
%E a(11)-a(20) from _Donovan Johnson_, Dec 13 2008
|