OFFSET
1,2
COMMENTS
For squarefree parts see A147661.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..700
FORMULA
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