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 A128022 #10 Oct 11 2017 21:58:00
%S A128022 1,2,3,8,15,30,63,128,252,510,1012,2028,4056,8120,16230,32464,64923,
%T A128022 129852,259711,519420,1038828,2077658,4155318,8310648,16621300,
%U A128022 33242586,66485178,132970348,265940701,531881400,1063762799,2127525600
%N A128022 a(1)=1, a(n) = the multiple of n which is >= (sum{k=1 to n-1} a(k)) and is < (n + sum{k=1 to n-1} a(k)).
%H A128022 Michael De Vlieger, <a href="/A128022/b128022.txt">Table of n, a(n) for n = 1..3322</a>
%F A128022 a(1)=1, a(n) = n * ceiling(sum{k=1 to n-1} a(k) /n).
%t A128022 f[l_List] := Block[{n = Length[l] + 1}, Append[l, n*(Ceiling[Plus @@ l/n])]]; Nest[f, {1}, 33] (* _Ray Chandler_, Feb 12 2007 *)
%t A128022 Fold[Append[#1, #2 Ceiling@ Total[#1/#2]] &, {1}, Range[2, 32]] (* _Michael De Vlieger_, Oct 11 2017 *)
%Y A128022 Cf. A128020, A128023.
%K A128022 easy,nonn
%O A128022 1,2
%A A128022 _Leroy Quet_, Feb 11 2007
%E A128022 Extended by _Ray Chandler_, Feb 12 2007