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,2

Comments

For squarefree parts see A147661.

Links

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

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

Cf. A000188, A000312, A147661.

Sequence in context: A117926 A185251 A092503 * A074182 A074759 A175699

Adjacent sequences: A147659 A147660 A147661 * A147663 A147664 A147665

Keyword

nonn

Author

Artur Jasinski, Nov 09 2008

Extensions

Name edited by Michel Marcus, Nov 01 2022

Status

approved