reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
editing
proposed
pd[n_] := n^(DivisorSigma[0, n]/2 - 1); pd /@ Select[Range[100], CompositeQ] (* Amiram Eldar, Sep 07 2019 *)
Amiram Eldar, <a href="/A048741/b048741.txt">Table of n, a(n) for n = 1..10000</a>
2, 6, 8, 3, 10, 144, 14, 15, 64, 324, 400, 21, 22, 13824, 5, 26, 27, 784, 27000, 1024, 33, 34, 35, 279936, 38, 39, 64000, 74088, 1936, 2025, 46, 5308416, 7, 2500, 51, 2704, 157464, 55, 175616, 57, 58, 777600000, 62, 3969, 32768, 65, 287496, 4624, 69
a(33) inserted by Amiram Eldar, Sep 07 2019
approved
editing
Enoch Haga (Enokh(AT)comcast.net)
easy,nonn,new
Enoch Haga (Enokh(AT)aolcomcast.comnet)