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 A072476 #11 Jun 24 2022 19:42:04
%S A072476 -2,-5,-8,-10,-9,-8,-5,-1,6,17,28,44,63,82,104,131,163,196,233,272,
%T A072476 312,357,405,458,517,579,642,707,772,840,921,1004,1092,1181,1279,1378,
%U A072476 1481,1589,1700,1816,1937,2058,2187,2317,2450,2584,2729,2884,3042,3201,3362,3527,3693,3868,4048
%N A072476 Difference between the sum of first n prime numbers and the sum of first n composite numbers.
%t A072476 Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; Table[ Sum[ Prime[i] - Composite[i], {i, 1, n}], {n, 1, 55}]
%t A072476 Module[{nn=60,pr,cm},pr=Prime[Range[nn]];cm=Take[Select[Range[2nn], CompositeQ], nn]; Accumulate[ pr-cm]](* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 08 2017 *)
%Y A072476 Cf. A071411.
%Y A072476 Partial sums of A038529.
%K A072476 sign
%O A072476 1,1
%A A072476 _Amarnath Murthy_, Jun 20 2002
%E A072476 Edited by _Robert G. Wilson v_, Jun 21 2002