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 A363971 #12 Jun 30 2023 15:37:03 %S A363971 0,1,0,1,4,1,0,10,0,5,16,1,0,26,4,10,36,1,0,54,0,17,64,10,4,82,0,26, %T A363971 100,5,0,131,16,37,148,1,0,170,0,63,196,26,0,242,4,65,256,10,0,294,36, %U A363971 82,324,1,20,396,0,101,400,54,0,442,0,131,488,17,0,566,64,174,576,10,0,626,4,170 %N A363971 Expansion of Sum_{k>0} k^2 * x^(3*k-1) / (1 - x^(3*k-1)). %F A363971 a(n) = Sum_{d|n, d==2 mod 3} ((d+1)/3)^2. %t A363971 a[n_] := DivisorSum[n, ((#+1)/3)^2 &, Mod[#, 3] == 2 &]; Array[a, 100] (* _Amiram Eldar_, Jun 30 2023 *) %o A363971 (PARI) a(n) = sumdiv(n, d, (d%3==2)*((d+1)/3)^2); %Y A363971 Cf. A001822, A363902. %Y A363971 Cf. A103638, A363976. %K A363971 nonn,easy %O A363971 1,5 %A A363971 _Seiichi Manyama_, Jun 30 2023