OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..500
MATHEMATICA
lst={}; Do[AppendTo[lst, Round[(n^n)^(1/2)]], {n, 40}]; lst
Table[Round[n^(n/2)], {n, 30}] (* Harvey P. Dale, Feb 17 2020 *)
PROG
(Python)
from gmpy2 import isqrt_rem
def A147771(n):
i, j = isqrt_rem(n**n)
return int(i+int(4*(j-i) >= 1)) # Chai Wah Wu, Aug 16 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 12 2008
STATUS
approved