This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A101203 #24 Jan 08 2024 02:24:30 %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, %T A101203 176,200,225,251,278,306,306,336,336,368,401,435,470,506,506,544,583, %U A101203 623,623,665,665,709,754,800,800,848,897,947,998,1050,1050,1104,1159,1215 %N A101203 a(n) = sum of nonprimes <= n. %H A101203 Reinhard Zumkeller, <a href="/A101203/b101203.txt">Table of n, a(n) for n = 0..10000</a> %F A101203 a(n) = A000217(n) - A034387(n) = A101256(n) + 1. %t A101203 Accumulate[Table[If[PrimeQ[n],0,n],{n,0,60}]] (* _Harvey P. Dale_, Oct 02 2020 *) %o A101203 (PARI) my(s=0); for(k=0,100,if(!isprime(k),s+=k);print1(s", ")); \\ _Cino Hilliard_, Feb 04 2006 %o A101203 (Haskell) %o A101203 a101203 n = a101203_list !! (n-1) %o A101203 a101203_list = scanl (+) 0 $ zipWith (*) [1..] $ map (1 -) a010051_list %o A101203 -- _Reinhard Zumkeller_, Oct 10 2013 %Y A101203 Cf. A062298, A018252. %Y A101203 Partial sums of A191558. %Y A101203 Cf. A000217, A034387, A101256. %K A101203 nonn %O A101203 0,5 %A A101203 _Reinhard Zumkeller_, Jan 23 2005