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 A359883 #14 Aug 09 2023 02:03:46 %S A359883 1,3,4,21,6,367,8,5129,19693,106411,12,9590989,14,105614223, %T A359883 2439477016,8590983185,18,1788338285659,20,44174380774421, %U A359883 1483406745548512,584318428289047,24,2300697575522919961,298023223876953151,2481152876039086107 %N A359883 a(n) = Sum_{d|n} d^(n-d) * (n/d)^d. %F A359883 a(n) = [x^n] Sum_{k>0} (n * x / k)^k / (1 - (k * x)^k). %F A359883 If p is prime, a(p) = 1 + p. %t A359883 a[n_] := DivisorSum[n, #^(n-#) * (n/#)^# &]; Array[a, 30] (* _Amiram Eldar_, Aug 09 2023 *) %o A359883 (PARI) a(n) = sumdiv(n, d, d^(n-d)*(n/d)^d); %Y A359883 Cf. A359882. %K A359883 nonn %O A359883 1,2 %A A359883 _Seiichi Manyama_, Jan 16 2023