OFFSET
1,2
MATHEMATICA
Table[k = 1; While[Mod[k!, n^n] > 0, k++ ]; k!/n^n, {n, 1, 10}] (* Stefan Steinerberger, Mar 11 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 23 2004
EXTENSIONS
More terms from Stefan Steinerberger, Mar 11 2006
STATUS
approved