|
PROG
|
(PARI) for(n=1, 120, if(isprime(abs(sum(i=1, n, (-1)^i*i!)))==1, print1(abs(sum(i=1, n, (-1)^i*i!)), ", ")))
(PARI) v=[]; for(n=1, 1000, if(ispseudoprime(t=abs(sum(i=1, n, (-1)^i*i!))), v=concat(v, t))); v \\ Charles R Greathouse IV, Feb 14 2011
|