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 A334895 #6 May 15 2020 09:58:01
%S A334895 0,2,1,0,-1,-1,-3,-4,-4,-3,3,-1,5,3,2,6,8,11,3,3,1,-5,-5,-3,-4,-8,-12,
%T A334895 -16,-19,-13,-5,9,3,1,-7,3,7,0,20,18,18,18,23,19,15,9,5,5,15,-9,-25,
%U A334895 -27,-25,-20,-6,-12,-20,-10,-20,-17,-27,-9,-1,5,-5,-13,-23,3,1,15,19
%N A334895 G.f.: (Sum_{k>=1} prime(k) * x^k) * (Product_{j>=1} (1 - x^j)).
%C A334895 Convolution of primes with A010815.
%H A334895 Ilya Gutkovskiy, <a href="/A334895/a334895.jpg">Scatter plot of a(n) up to n=10000</a>
%F A334895 Sum_{k=1..n} a(k) * A000041(n-k) = prime(n).
%t A334895 nmax = 70; CoefficientList[Series[Sum[Prime[k] x^k, {k, 1, nmax}] Product[(1 - x^j), {j, 1, nmax}], {x, 0, nmax}], x]
%t A334895 A010815[0] = 1; A010815[n_] := A010815[n] = -(1/n) Sum[DivisorSigma[1, k] A010815[n - k], {k, 1, n}]; a[n_] := Sum[Prime[k] A010815[n - k], {k, 1, n}]; Table[a[n], {n, 0, 70}]
%Y A334895 Cf. A000040, A000041, A010815, A086717, A246575 (convolution of nonnegative integers with A010815).
%K A334895 sign
%O A334895 0,2
%A A334895 _Ilya Gutkovskiy_, May 14 2020