|
%I #5 May 13 2013 01:49:00
%S 571,437763136697395052543999983,
%T 30278850633655058582710149233337530603447722122319635563188698934564270838098005054611040868761599999999999999999953,
%U 296311412699225200908163606272742319721883625208450035597320979733142050442134850821917320943689294427554413789065603782543495882098138306686767337419309055999999999999999999999999999933
%N Primes of the form (n!)^2-n-1.
%C Corresponding values of n are 4, 16, 46, 66, 72, 562, .... [_Charles R Greathouse IV_, Oct 05 2011]
%t lst={};Do[s=n!^2-n;If[PrimeQ[p=s-1],AppendTo[lst,p]],{n,5!}];lst
%o (PARI) for(n=1,99,if(ispseudoprime(t=n!^2-n-1),print1(t", "))) \\ _Charles R Greathouse IV_, Oct 05 2011
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 27 2008
|
