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 A112997 #16 Aug 31 2023 16:29:49
%S A112997 1,2,4,7,13,20,30,41,55,74,94,119,147,176,208,245,287,330,378,429,481,
%T A112997 538,598,663,735,810,886,965,1045,1128,1224,1323,1427,1532,1646,1761,
%U A112997 1881,2006,2134,2267,2405,2544,2692,2841,2993,3146,3310,3485,3663,3842
%N A112997 Sum of first n primes minus sum of their indices.
%H A112997 Michel Marcus, <a href="/A112997/b112997.txt">Table of n, a(n) for n = 1..1000</a>
%F A112997 a(n) = A007504(n) - n(n+1)/2.
%F A112997 a(n) = Sum_{k=1..n} A014689(n) = partial sums of A014689. - Philippe Lallouet (philip.lallouet(AT)orange.fr), Aug 27 2008
%t A112997 Table[Total[Take[Table[Prime[n]-n, {n, 1, 20}], i]], {i, 20}]
%t A112997 With[{nn=50},Accumulate[Prime[Range[nn]]]-Accumulate[Range[nn]]] (* _Harvey P. Dale_, Aug 31 2023 *)
%o A112997 (PARI) a(n) = sum(i=1, n, prime(i)-i); \\ _Michel Marcus_, Oct 09 2013
%Y A112997 Cf. A007504 (Sum of first n primes).
%K A112997 nonn
%O A112997 1,2
%A A112997 _Zak Seidov_, Jan 03 2006
%E A112997 More terms from _Michel Marcus_, Oct 09 2013