[go: up one dir, main page]

login
A144956
Primes of the form (n!)^2-n-1.
0
571, 437763136697395052543999983, 30278850633655058582710149233337530603447722122319635563188698934564270838098005054611040868761599999999999999999953, 296311412699225200908163606272742319721883625208450035597320979733142050442134850821917320943689294427554413789065603782543495882098138306686767337419309055999999999999999999999999999933
OFFSET
1,1
COMMENTS
Corresponding values of n are 4, 16, 46, 66, 72, 562, .... [Charles R Greathouse IV, Oct 05 2011]
MATHEMATICA
lst={}; Do[s=n!^2-n; If[PrimeQ[p=s-1], AppendTo[lst, p]], {n, 5!}]; lst
PROG
(PARI) for(n=1, 99, if(ispseudoprime(t=n!^2-n-1), print1(t", "))) \\ Charles R Greathouse IV, Oct 05 2011
CROSSREFS
Sequence in context: A142767 A251384 A076465 * A178323 A049361 A252633
KEYWORD
nonn
AUTHOR
STATUS
approved