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 A363651 #12 Jul 19 2023 02:19:32 %S A363651 0,1,3,7,10,28,21,125,117,686,55,9049,78,21596,206310,508025,136, %T A363651 8701561,171,229315221,303797886,14418152,253,88452515089, %U A363651 305175781550,327156038,377734977126,27160609347425,406,2458857416866336,465,9570181420417521 %N A363651 Expansion of Sum_{k>0} x^(2*k)/(1 - (k*x)^k)^3. %F A363651 a(n) = Sum_{d|n} (n/d)^(n-2*n/d) * binomial(d,2). %t A363651 a[n_] := DivisorSum[n, (n/#)^(n-2*n/#) * Binomial[#, 2] &]; Array[a, 33] (* _Amiram Eldar_, Jul 18 2023 *) %o A363651 (PARI) a(n) = sumdiv(n, d, (n/d)^(n-2*n/d)*binomial(d, 2)); %Y A363651 Cf. A363647, A363650, A363652. %Y A363651 Cf. A363643. %K A363651 nonn %O A363651 1,3 %A A363651 _Seiichi Manyama_, Jun 13 2023