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 A363650 #13 Jul 19 2023 02:19:29 %S A363650 1,4,7,23,16,199,29,1445,4420,13271,67,751597,92,2585423,66565486, %T A363650 218693769,154,14527231822,191,399614708821,4080186211018, %U A363650 856004218103,277,2754664372347481,1430511474609701,908626846503767,900580521111136750,5626675967703843613,436 %N A363650 Expansion of Sum_{k>0} x^k/(1 - (k*x)^k)^3. %F A363650 a(n) = Sum_{d|n} (n/d)^(n-n/d) * binomial(d+1,2). %t A363650 a[n_] := DivisorSum[n, (n/#)^(n-n/#) * Binomial[# + 1, 2] &]; Array[a, 30] (* _Amiram Eldar_, Jul 18 2023 *) %o A363650 (PARI) a(n) = sumdiv(n, d, (n/d)^(n-n/d)*binomial(d+1, 2)); %Y A363650 Cf. A363647, A363651, A363652. %Y A363650 Cf. A007437, A363642. %K A363650 nonn %O A363650 1,2 %A A363650 _Seiichi Manyama_, Jun 13 2023