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 A363157 #13 Jul 06 2023 07:30:54 %S A363157 0,0,1,0,0,1,2,0,1,0,3,1,0,0,7,0,0,1,5,0,1,0,8,4,0,0,8,0,0,1,10,0,5,0, %T A363157 9,1,3,0,13,0,0,6,11,0,1,0,14,1,0,3,24,0,0,1,16,0,1,0,15,8,0,0,22,0,5, %U A363157 1,17,0,13,0,20,1,0,0,20,3,0,10,28,0,1,0,21,1,0,0,39,5,3,1,23,0,8,0,26,12,0,0,26 %N A363157 Expansion of Sum_{k>0} k * x^(4*k-1) / (1 - x^(5*k-2)). %F A363157 a(n) = (1/5) * Sum_{d | 5*n-3, d==3 (mod 5)} (d+2). %F A363157 G.f.: Sum_{k>0} x^(3*k) / (1 - x^(5*k-1))^2. %t A363157 a[n_] := DivisorSum[5*n - 3, # + 2 &, Mod[#, 5] == 3 &]/5; Array[a, 100] (* _Amiram Eldar_, Jul 06 2023 *) %o A363157 (PARI) a(n) = sumdiv(5*n-3, d, (d%5==3)*(d+2))/5; %Y A363157 Cf. A359270, A363035. %K A363157 nonn %O A363157 1,7 %A A363157 _Seiichi Manyama_, Jul 06 2023