The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #22 Aug 14 2024 18:32:35
%S 1,1,1,1,3,5,9,13,19,29,39,53,69,85,103,125,151,177,207,239,271,307,
%T 345,387,435,485,535,587,639,693,759,827,899,971,1051,1131,1215,1303,
%U 1393,1487,1585,1683,1789,1895,2003,2111,2229,2357,2487,2617,2749,2885,3021
%N Difference between partial sum of the first n primes and n^2.
%C Also difference between partial sum of the first n primes and the sum of the first n odd numbers. - _Cino Hilliard_, Dec 02 2007
%H Harvey P. Dale, <a href="/A108754/b108754.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A007504(n) - A000290(n).
%e a(5) = A007504(5) - A000290(5) = 28 - (5^2) = 3.
%t Table[ Sum[ Prime[i], {i, n}] - n^2, {n, 53}] (* _Robert G. Wilson v_, Jun 25 2005 *)
%t Module[{nn=60,prs},prs=Accumulate[Prime[Range[nn]]];#[[1]]-#[[2]]&/@Thread[ {prs,Range[ nn]^2}]] (* _Harvey P. Dale_, Aug 14 2024 *)
%o (PARI) g(n) = for(x=1,n,y=sum(j=1,x,2*j-1);z=sum(j=1,x,prime(j));print1(z-y",")) \\ _Cino Hilliard_, Dec 02 2007
%Y Cf. A000290, A007504.
%Y Partial sums of A131733.
%K easy,nonn
%O 1,5
%A _Alexandre Wajnberg_, Jun 23 2005
%E Edited and extended by _Robert G. Wilson v_, Jun 25 2005