A147662 Square root of largest square dividing n^n.

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

Author

Artur Jasinski, Nov 09 2008

Keywords

• nonn

Comments

For squarefree parts see A147661.

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..700

Crossrefs

Cf. A000188, A000312, A147661.

Programs

Mathematica

data = Table[Sqrt[n^n], {n, 1, 200}]; sp = data /. Sqrt[_] -> 1

PARI

a(n) = sqrtint(n^n/core(n^n)); \\ Michel Marcus, Nov 01 2022

Formula

a(n) = A000188(A000312(n)). - Michel Marcus, Nov 01 2022

Extensions

Name edited by Michel Marcus, Nov 01 2022