OFFSET
1,1
EXAMPLE
a(1)=3 because 2^2 - 1! = 3;
a(2)=2 because 2^2 - 2! = 2;
a(3)=3 because 3^2 - 3! = 3;
a(4)=97 because 11^2 - 4! = 97.
MATHEMATICA
b = {}; Do[k = Round[Sqrt[n! ]] + 1; While[ ! PrimeQ[k^2 - n! ], k++ ]; AppendTo[b, k^2-n! ], {n, 1, 50}]; b
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 05 2008
STATUS
approved