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 A070232 #8 Sep 14 2024 18:34:29 %S A070232 4,6,12,24,48,95,190,380,760,1520,3040,6080,12160,24320,48640,97280, %T A070232 194560,389120,778240,1556480,3112960,6225920,12451840,24903680, %U A070232 49807360,99614720,199229440,398458880,796917760,1593835520,3187671040 %N A070232 a(1) = 4; a(n) = smallest composite number greater than the sum of all previous terms. %C A070232 a(n) = 95*2^(n-6) for n > 5. %H A070232 Harvey P. Dale, <a href="/A070232/b070232.txt">Table of n, a(n) for n = 1..1000</a> %t A070232 a = {4}; Do[b = 1 + Plus @@ a; While[ PrimeQ[b], b++ ]; a = Append[a, b], {n, 2, 30}]; a %t A070232 nxt[{t_,a_}]:=Module[{k=t+1},While[!CompositeQ[k],k++];{t+k,k}]; NestList[nxt,{4,4},30][[;;,2]] (* _Harvey P. Dale_, Sep 14 2024 *) %Y A070232 Cf. A070218. %K A070232 nonn %O A070232 1,1 %A A070232 _Amarnath Murthy_, May 05 2002 %E A070232 Edited by _Robert G. Wilson v_, May 06 2002