%I
%S 13,251,4031,52017,652039,7746369,89721621,1019145113
%N Difference between the sums of oddindexed primes and evenindexed primes up to and including index 10^n.
%F Sum1 = prime(1) + prime(3) + ... + prime(k), k=1, 3, 5, ..., 10^n1.
%F a(n) = Sum_{i=1..10^n} (1)^i*A000040(i).  _R. J. Mathar_, Feb 13 2008
%p A106738 := proc(n) local a,i ; a :=0 ; for i from 1 to 10^n do a := a+(1)^i*ithprime(i) ; od: RETURN(a) ; end: for n from 1 do print(A106738(n)) ; od: # _R. J. Mathar_, Feb 13 2008
%t a[n_] := Module[{a = 0}, For[i = 1, i <= 10^n, i++, a = a + (1)^i*Prime[i]]; a]; Table[Print[an = a[n]]; an, {n, 1, 8}] (* _JeanFrançois Alcover_, Dec 17 2012, after _R. J. Mathar_ *)
%K more,nonn
%O 1,1
%A _Cino Hilliard_, May 15 2005
%E Edited by _R. J. Mathar_, Feb 13 2008
%E a(7)a(8) from _Donovan Johnson_, Nov 30 2008
