|
%I #22 Jun 11 2022 05:23:05
%S 1,4,9,64,25,1296,49,4096,729,10000,121,2985984,169,38416,50625,
%T 1048576,289,34012224,361,64000000,194481,234256,529,110075314176,
%U 15625,456976,531441,481890304,841,656100000000,961,1073741824,1185921
%N Product of squares of divisors of n.
%H Harry J. Smith, <a href="/A062758/b062758.txt">Table of n, a(n) for n=1..1000</a>
%F a(n) = n^tau(n) = n^A000005(n) = A007955(n)^2.
%F A007318(n,k) <= a(n). - _Reinhard Zumkeller_, Mar 04 2008
%t Times@@(Divisors[#]^2)&/@Range[40] (* _Harvey P. Dale_, Jan 14 2011 *)
%t a[n_] := n^DivisorSigma[0, n]; Array[a, 40] (* _Amiram Eldar_, Jun 11 2022 *)
%o (PARI) { for (n=1, 1000, write("b062758.txt", n, " ", n^numdiv(n)) ) } \\ _Harry J. Smith_, Aug 10 2009
%Y Cf. A000005, A007955.
%K nonn
%O 1,2
%A _Labos Elemer_, Jul 16 2001
|
