login
A147662
Square root of largest square dividing n^n.
2
1, 2, 3, 16, 25, 216, 343, 4096, 19683, 100000, 161051, 2985984, 4826809, 105413504, 170859375, 4294967296, 6975757441, 198359290368, 322687697779, 10240000000000, 16679880978201, 584318301411328, 952809757913927
OFFSET
1,2
COMMENTS
For squarefree parts see A147661.
LINKS
FORMULA
a(n) = A000188(A000312(n)). - Michel Marcus, Nov 01 2022
MATHEMATICA
data = Table[Sqrt[n^n], {n, 1, 200}]; sp = data /. Sqrt[_] -> 1
PROG
(PARI) a(n) = sqrtint(n^n/core(n^n)); \\ Michel Marcus, Nov 01 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 09 2008
EXTENSIONS
Name edited by Michel Marcus, Nov 01 2022
STATUS
approved