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 A318734 #21 Sep 17 2018 08:49:32 %S A318734 1,-1,1,-1,2,0,2,-2,0,-2,2,0,3,-1,1,-1,3,-1,1,-3,-1,-3,3,1,4,0,2,-2,2, %T A318734 0,2,-4,0,-2,2,0,2,-4,0,-2,3,1,5,1,3,-1,3,-1,1,-5,-3,-5,3,1,3,-1,1,-3, %U A318734 3,-1,2,-2,2,0,4,2,6,-2,0,-2,2,-2 %N A318734 a(n) = Sum_{k=1..n} (-1)^(k + 1) * d(2*k - 1), where d(k) is the number of divisors of k (A000005). %H A318734 Hugo Pfoertner, <a href="/A318734/b318734.txt">Table of n, a(n) for n = 1..10000</a> %H A318734 Hugo Pfoertner, <a href="/A318734/a318734.pdf">Records of A318734,</a> showing negative and positive records. %t A318734 a[n_] := Sum[(-1)^(k + 1) DivisorSigma[0, 2 k - 1], {k, 1, n}]; %t A318734 Array[a, 100] (* _Jean-François Alcover_, Sep 17 2018 *) %o A318734 (PARI) s=0;j=-1;forstep(k=1,141,2,j=-j;s=s+j*numdiv(k);print1(s,", ")) %o A318734 (PARI) a(n) = sum(k=1, n, (-1)^(k+1)*numdiv(2*k-1)); \\ _Michel Marcus_, Sep 08 2018 %Y A318734 Cf. A000005, A099774, A006218, A222068. %Y A318734 Records and their positions: A318735, A318736, A318737, A318738. %K A318734 sign,look %O A318734 1,5 %A A318734 _Hugo Pfoertner_, Sep 05 2018