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 A362683 #47 Jul 17 2023 00:59:27 %S A362683 2,7,10,25,16,78,22,153,136,298,34,1254,40,1214,2004,3825,52,11385,58, %T A362683 20894,18932,25006,70,150002,18826,115274,199828,389510,88,1334624,94, %U A362683 1725281,2131188,2360266,725948,14878299,112,10486958,22329428,37317986,124,120957336,130 %N A362683 Expansion of Sum_{k>0} (1/(1 - k*x^k)^2 - 1). %F A362683 a(n) = Sum_{d|n} (n/d)^d * (d+1) = A055225(n) + A359103(n). %F A362683 If p is prime, a(p) = 1 + 3*p. %t A362683 a[n_] := DivisorSum[n, (n/#)^# * (# + 1) &]; Array[a, 50] (* _Amiram Eldar_, Jul 17 2023 *) %o A362683 (PARI) a(n) = sumdiv(n, d, (n/d)^d*(d+1)); %Y A362683 Cf. A338662, A363639, A363640. %Y A362683 Cf. A007503, A055225, A359103, A363646. %K A362683 nonn %O A362683 1,1 %A A362683 _Seiichi Manyama_, Jun 13 2023