%I #12 Nov 18 2018 00:58:59
%S 1,4,9,10,25,15,49,28,39,45,121,28,169,91,65,66,289,78,361,85,133,231,
%T 529,76,205,325,165,175,841,125,961,164,341,561,217,150,1369,703,481,
%U 165,1681,259,1849,451,186,1035,2209,196,595,405,833,637,2809,327,561
%N Least positive k such that n^n divides k!.
%C a(p) = p^2, p is a prime. a(n) <= n^2.
%H Jon E. Schoenfield, <a href="/A093896/b093896.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[k = 1; While[Mod[k!, n^n] > 0, k++ ]; Print[k], {n, 1, 30}] (* _Ryan Propper_, Jun 20 2005 *)
%Y Cf. A093897.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Apr 23 2004
%E 22 more terms from _Ryan Propper_, Jun 20 2005
%E More terms from _Stefan Steinerberger_, Feb 12 2006
%E More terms from _Jon E. Schoenfield_, Jan 06 2009
|