%I A101203
%S A101203 0,1,1,1,5,5,11,11,19,28,38,38,50,50,64,79,95,95,113,113,133,154,176,176,
%T A101203 200,225,251,278,306,306,336,336,368,401,435,470,506,506,544,583,623,
%U A101203 623,665,665,709,754,800,800,848,897,947,998,1050,1050,1104,1159,1215
%N A101203 Sum of nonprimes <= n.
%C A101203 a(n) = A000217(n) - A034387(n) = A101256(n) + 1.
%t A101203 s=0;lst={};Do[If[ !PrimeQ[n],s+=n];AppendTo[lst,s],{n,0,5!}];lst [From 
               Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 13 2009]
%o A101203 (PARI) g(n,m) = s=0;for(x=0,n,if(isprime(x),s+=m,s+=x);print1(s",")) 
               - Cino Hilliard (hillcino368(AT)gmail.com), Feb 04 2006
%Y A101203 Cf. A062298, A018252.
%Y A101203 Sequence in context: A130889 A058610 A143427 this_sequence A141244 A121849 
               A164930
%Y A101203 Adjacent sequences: A101200 A101201 A101202 this_sequence A101204 A101205 
               A101206
%K A101203 nonn
%O A101203 0,5
%A A101203 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jan 23 2005