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 A364048 #11 Jul 03 2023 11:48:41 %S A364048 0,0,0,0,1,0,0,0,0,1,-1,0,0,0,1,0,1,0,0,1,0,-1,-1,0,1,0,0,0,1,1,0,0, %T A364048 -1,1,0,0,0,0,0,1,1,0,0,-1,1,-1,-1,0,0,1,1,0,1,0,0,0,0,1,-1,1,0,0,0,0, %U A364048 2,-1,0,1,-1,0,-1,0,0,0,1,0,0,0,0,1,0,1,-1,0,2,0,1,-1,1,1,0,-1,0,-1,0,0,0,0,-1,1,1,1 %N A364048 Expansion of Sum_{k>0} x^(5*k) / (1 + x^(6*k)). %F A364048 G.f.: Sum_{k>0} (-1)^(k-1) * x^(6*k-1) / (1 - x^(6*k-1)). %F A364048 a(n) = Sum_{d|n, d==5 (mod 6)} (-1)^((d-5)/6). %t A364048 a[n_] := DivisorSum[n, (-1)^((#-5)/6) &, Mod[#, 6] == 5 &]; Array[a, 100] (* _Amiram Eldar_, Jul 03 2023 *) %o A364048 (PARI) a(n) = sumdiv(n, d, (d%6==5)*(-1)^((d-5)/6)); %Y A364048 Cf. A319995. %K A364048 sign %O A364048 1,65 %A A364048 _Seiichi Manyama_, Jul 03 2023