OFFSET
1,1
COMMENTS
MATHEMATICA
aa = {}; Do[k = Ceiling[Sqrt[n!]]^2 - n!; If[k > Sqrt[n!], AppendTo[aa, n]], {n, 1, 100}]; aa
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 17 2012
STATUS
approved