A144957 Primes of the form n!-n^2-1.

7, 683, 87178291003, 23721732428800468856771473051394170805702085973808045661837377170052497697783313457227249544076486314839447086187187275319400401837013955325179315652376928996065123321190898603130879999999999999999999999999984123

Offset

1,1

Links

Table of n, a(n) for n=1..4.

Mathematica

lst={}; Do[s=n!-n^2; If[PrimeQ[p=s-1], AppendTo[lst, p]], {n, 3, 2*5!}]; lst

Prog

(PARI) for(n=1, 1e3, if(ispseudoprime(t=n!-n^2-1), print1(t", "))) \\ Charles R Greathouse IV, Oct 03 2011

Crossrefs

Sequence in context: A228928 A332167 A038803 * A163016 A261696 A174855

Adjacent sequences: A144954 A144955 A144956 * A144958 A144959 A144960

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 27 2008

Status

approved