|
%I #5 Mar 30 2012 18:36:00
%S 1,2,3,4,5,14,37,48,50,52,88,223
%N Numbers n such that n!*n!! + 1 is prime.
%e For n = 3, 3!*3!! + 1 = 6*3 + 1 = 19 is prime.
%t lst={}; Do[If[PrimeQ[n!*n!!+1], AppendTo[lst, n]], {n, 500}]; lst
%Y Cf. A000142, A006882, A202422.
%K nonn
%O 1,2
%A _Michel Lagneau_, Dec 19 2011
|
