cp's OEIS Frontend

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.

A072475 Sum of next n composite numbers.

This page as a plain text file.
%I A072475 #11 Dec 05 2013 19:55:20
%S A072475 4,14,31,63,112,176,264,385,529,712,932,1184,1503,1833,2234,2689,3207,
%T A072475 3779,4408,5117,5913,6747,7657,8667,9766,10938,12240,13612,15071,
%U A072475 16578,18266,20081,22007,23989,26100,28334,30695,33221,35811,38569,41474
%N A072475 Sum of next n composite numbers.
%H A072475 Harvey P. Dale, <a href="/A072475/b072475.txt">Table of n, a(n) for n = 1..1000</a>
%t A072475 Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; Table[ Sum[ Composite[i], {i, n(n - 1)/2 + 1, n(n + 1)/2}], {n, 1, 42}]
%t A072475 With[{terms=50},cnos=With[{c=(terms(terms+1)(terms+2))/6}, Complement[ Range[5,c], Prime[Range[PrimePi[c]]]]];Join[{4}, Total/@Table[Take[ cnos,{n (n+1)/2,(n+1) (n+2)/2-1}],{n,terms-1}]]] (* _Harvey P. Dale_, Oct 10 2011 *)
%Y A072475 Cf. A072474, A007468, A006003.
%K A072475 nonn
%O A072475 1,1
%A A072475 _Amarnath Murthy_, Jun 20 2002
%E A072475 More terms from _Jim Nastos_ and _Robert G. Wilson v_, Jun 21 2002