login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Square root of largest square dividing n^n.
2

%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