login
(Sum of composites among next n numbers)-(sum of primes among next n numbers).
1

%I #8 Mar 01 2019 16:23:36

%S 0,-5,5,20,17,39,129,140,127,305,431,448,603,777,1037,1540,1313,1951,

%T 2373,2450,2861,3407,3975,4656,5329,6073,6951,7092,7983,8091,11063,

%U 11290,14695,12749,14143,14276,18495,20201,20571,25612,21065,28283

%N (Sum of composites among next n numbers)-(sum of primes among next n numbers).

%H Harvey P. Dale, <a href="/A094338/b094338.txt">Table of n, a(n) for n = 1..1000</a>

%e a(4) = (8+9+10)-(7) =20.

%t scsp[n_]:=Module[{prs=Select[n,PrimeQ]},Total[Complement[n,prs]]-Total[ prs]]; With[{nn=50},scsp/@TakeList[Range[(nn(nn+1))/2],Range[nn]]]/. (1->0) (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 01 2019 *)

%Y Cf. A094337.

%K sign

%O 1,2

%A _Amarnath Murthy_, May 17 2004

%E More terms from _Sean A. Irvine_, Oct 13 2009