A087374 - OEIS

%I #6 Dec 16 2013 14:11:06

%S 1,4,9,25,121,729,5041,40401,363609,3629025,39917124,479040769,

%T 6227103744,87178467600,1307674583296,20922793332736,355687454263684,

%U 6402373820077225,121645100663836929,2432902009335560361

%N Smallest square >= n!.

%t ssn[n_]:=Module[{sr=Sqrt[n]},If[IntegerQ[sr],n,(Floor[sr]+1)^2]]; ssn/@ (Range[20]!) (* _Harvey P. Dale_, Dec 16 2013 *)

%K nonn

%O 1,2

%A _Amarnath Murthy_, Sep 09 2003

%E More terms from _David Wasserman_, May 24 2005