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

Author

Leroy Quet, May 30 2010

Keywords

• nonn

Links

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

Crossrefs

Cf. A034884, A175495.

Programs

Mathematica

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

Extensions

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