OFFSET
1,2
COMMENTS
a(n) = n^(the integer part of the geometric mean of the divisors of n).
a(n) = n^[Card(k, 0<k<=n such that k is relatively prime to core(k)) where core(x) is the squarefree part of x].
a(n) = n^[Number of numbers k <=n with an odd number of divisors].
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = n^floor(sqrt(n)) = n^floor(n^(1/2)) = n^A000196(n).
MAPLE
seq(n^floor(sqrt(n)), n=1..100); # Robert Israel, Jun 22 2015
MATHEMATICA
Table[n^Floor[Sqrt[n]], {n, 50}] (* Vincenzo Librandi, Jun 22 2015 *)
PROG
(Magma) [ n^ Floor(n^(1/2)) : n in [1..40]]; // Zaki Khandaker, Jun 21 2015
(PARI) vector(50, n, n^sqrtint(n)) \\ Michel Marcus, Jun 21 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, May 03 2006
STATUS
approved