login
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
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
Cf. A093897.
Sequence in context: A030754 A244863 A077584 * A332449 A191905 A113432
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 23 2004
EXTENSIONS
22 more terms from Ryan Propper, Jun 20 2005
More terms from Stefan Steinerberger, Feb 12 2006
More terms from Jon E. Schoenfield, Jan 06 2009
STATUS
approved