This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A359863 #22 Aug 09 2023 02:03:54 %S A359863 1,4,6,24,10,156,14,528,747,1620,22,15000,26,12572,60780,98336,34, %T A359863 397908,38,1484840,1500324,495660,46,18514992,9765675,2768948, %U A359863 28697868,85098552,58,375843660,62,570425408,471565380,75759684,2626093820,7623165384,74,378536012 %N A359863 a(n) = Sum_{d|n} d^(n/d) * (n/d)^d. %H A359863 Seiichi Manyama, <a href="/A359863/b359863.txt">Table of n, a(n) for n = 1..5000</a> %F A359863 a(n) = [x^n] Sum_{k>0} k * (n * x / k)^k / (1 - k * x^k). %F A359863 If p is prime, a(p) = 2 * p. %t A359863 a[n_] := DivisorSum[n, #^(n/#) * (n/#)^# &]; Array[a, 40] (* _Amiram Eldar_, Aug 09 2023 *) %o A359863 (PARI) a(n) = sumdiv(n, d, d^(n/d)*(n/d)^d); %Y A359863 Cf. A359004. %K A359863 nonn %O A359863 1,2 %A A359863 _Seiichi Manyama_, Jan 16 2023