

A093896


Least positive k such that n^n divides k!.


4



1, 4, 9, 10, 25, 15, 49, 28, 39, 45, 121, 28, 169, 91, 65, 66, 289, 78, 361, 85, 133, 231, 529, 76, 205, 325, 165, 175, 841, 125, 961, 164, 341, 561, 217, 150, 1369, 703, 481, 165, 1681, 259, 1849, 451, 186, 1035, 2209, 196, 595, 405, 833, 637, 2809, 327, 561
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

a(p) = p^2, p is a prime. a(n) <= n^2.


LINKS



MATHEMATICA

Do[k = 1; While[Mod[k!, n^n] > 0, k++ ]; Print[k], {n, 1, 30}] (* Ryan Propper, Jun 20 2005 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



