OFFSET
1,3
MATHEMATICA
Table[Floor[Log[n^n]^(n^(-1/n))], {n, 70}] (* Harvey P. Dale, Nov 30 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Name and Mathematica corrected by Sean A. Irvine, Mar 31 2023
Previous Mathematica program replaced by Harvey P. Dale, Nov 30 2024
STATUS
approved