Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Nov 01 2022 07:13:08
%S 1,2,3,16,25,216,343,4096,19683,100000,161051,2985984,4826809,
%T 105413504,170859375,4294967296,6975757441,198359290368,322687697779,
%U 10240000000000,16679880978201,584318301411328,952809757913927
%N Square root of largest square dividing n^n.
%C For squarefree parts see A147661.
%H Alois P. Heinz, <a href="/A147662/b147662.txt">Table of n, a(n) for n = 1..700</a>
%F a(n) = A000188(A000312(n)). - _Michel Marcus_, Nov 01 2022
%t data = Table[Sqrt[n^n], {n, 1, 200}]; sp = data /. Sqrt[_] -> 1
%o (PARI) a(n) = sqrtint(n^n/core(n^n)); \\ _Michel Marcus_, Nov 01 2022
%Y Cf. A000188, A000312, A147661.
%K nonn
%O 1,2
%A _Artur Jasinski_, Nov 09 2008
%E Name edited by _Michel Marcus_, Nov 01 2022