Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #34 Oct 28 2021 02:06:48
%S 2,3,5,7,13,19,29,53,61,71,79,83,97,103,113,139,149,151,157,163,167,
%T 191,199,233,251,281,337,347,353,397,421,433,461,563,599,643,719,773,
%U 797,811,859,883,953,977,1031,1039,1061,1063,1091,1097,1153,1187,1201,1213
%N Primes which are the absolute value of the alternating sum and difference of the first n primes.
%H Dmitry Kamenetsky, <a href="/A136288/b136288.txt">Table of n, a(n) for n = 1..10000</a> (first 144 terms by Paolo P. Lava and Giorgio Balzarotti)
%F A000040 INTERSECT A008347. - _R. J. Mathar_, Apr 04 2008
%e 5 = abs(2-3+5-7+11-13) (first 6 primes),
%e 7 = abs(2-3+5-7+11-13+17-19) (first 8 primes),
%e etc.
%p P:=proc(n) local i,s; s:=0; for i from 1 by 1 to n do s:=s+(-1)^i*ithprime(i); if isprime(abs(s)) then print(abs(s)); fi; od; end: P(1000);
%t Select[Abs@Accumulate@Table[(-1)^(k+1)*Prime@k,{k,355}],PrimeQ] (* _Giorgos Kalogeropoulos_, Sep 22 2021 *)
%Y Cf. A000040, A008347, A013918.
%K easy,nonn
%O 1,1
%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Mar 20 2008