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

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

Author

Amarnath Murthy, Apr 23 2004

Keywords

• nonn

Comments

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

Links

• Jon E. Schoenfield, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A093897.

Programs

Mathematica

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

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