cp's OEIS Frontend

A282329 Start with 2, then successively subtract the primes 3, 5, 7, ...

%I A282329 #17 Feb 23 2017 23:06:16
%S A282329 2,-1,-6,-13,-24,-37,-54,-73,-96,-125,-156,-193,-234,-277,-324,-377,
%T A282329 -436,-497,-564,-635,-708,-787,-870,-959,-1056,-1157,-1260,-1367,
%U A282329 -1476,-1589,-1716,-1847,-1984,-2123,-2272,-2423,-2580,-2743,-2910
%N A282329 Start with 2, then successively subtract the primes 3, 5, 7, ...
%F A282329 a(n) = A007504(n+1) - 2*A071148(n-1).
%e A282329 a(1) = 2 - 3 = -1;
%e A282329 a(2) = 2 - 3 - 5 = -6.
%t A282329 FoldList[#1 - #2 &, 2, Prime@ Range[2, 39]] (* _Michael De Vlieger_, Feb 12 2017 *)
%o A282329 (Python) from sympy import prime, isprime
%o A282329 sub=2
%o A282329 print(sub, end=", ")
%o A282329 for i in range (3, 200, 2):
%o A282329     if (isprime(i)==True):
%o A282329         sub=sub-i
%o A282329         print(sub, end=", ")
%o A282329 (PARI) lista(nn) = {s = prime(1); print1(s, ", "); for (n=2, nn, s -= prime(n); print1(s, ", "););} \\ _Michel Marcus_, Feb 12 2017
%Y A282329 Cf. A007504, A071148, A000040.
%K A282329 sign
%O A282329 1,1
%A A282329 _Frederic Isenmann_, Feb 12 2017