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 A156779 #7 Aug 22 2023 07:59:25
%S A156779 0,2,5,7,10,17,17,24,22,29,28,50,41,60,56,65,58,92,77,111,99,107,100,
%T A156779 167,110,143,122,165,129,214,160,225,193,220,187,285,197,276,243,325,
%U A156779 238,390,281,393,354,383,328,536,345,457,391,476,381,573,419,563,463
%N A156779 a(n) = Sum_{d|n} sp(d), where sp(d) = A034387(d) = sum of primes <= d.
%t A156779 With[{max = 60}, sp = Accumulate[Array[# * Boole@PrimeQ[#]&, max]]; a[n_] := DivisorSum[n, sp[[#]] &]; Array[a, max]] (* _Amiram Eldar_, Aug 22 2023 *)
%o A156779 (PARI) vector(80,n,sumdiv(n,d,sum(i=1,primepi(d),prime(i))))
%Y A156779 Cf. A034387.
%K A156779 nonn
%O A156779 1,2
%A A156779 _M. F. Hasler_, Feb 21 2009