A175494 a(n) = floor(n^(1/d(n))), where d(n) = number of divisors of n.

1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 4, 1, 4, 1, 2, 2, 4, 1, 2, 2, 2, 1, 5, 1, 5, 1, 2, 2, 2, 1, 6, 2, 2, 1, 6, 1, 6, 1, 1, 2, 6, 1, 3, 1, 2, 1, 7, 1, 2, 1, 2, 2, 7, 1, 7, 2, 1, 1, 2, 1, 8, 2, 2, 1, 8, 1, 8, 2, 2, 2, 2, 1, 8, 1, 2, 3, 9, 1, 3, 3, 3

Offset

1,5

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Mathematica

Table[Floor[n^(1/DivisorSigma[0, n])], {n, 100}] (* T. D. Noe, May 14 2013 *)

Crossrefs

Cf. A034884, A175495.

Sequence in context: A345934 A060775 A355368 * A055399 A029426 A369916

Adjacent sequences: A175491 A175492 A175493 * A175495 A175496 A175497

Keyword

nonn

Author

Leroy Quet, May 30 2010

Extensions

More terms from R. J. Mathar, May 31 2010

Status

approved