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 A180224 #13 Mar 06 2020 02:35:01 %S A180224 1,4,12,34,94,257,700,1904,5177,14074,38258,103997,282695,768446, %T A180224 2088854,5678095,15434664,41955768,114047603,310013528,842704141, %U A180224 2290707355,6226788179,16926165158,46010087176,125068383898,339971115266,924137304830,2512065642722,6828502388509 %N A180224 a(n+1) is the least k such that 1/(a(n)+1) + 1/(a(n)+2) + ... + 1/k > 1, with a(1) = 1. %F A180224 a(n) = A103762(a(n-1) + 1) for n > 1. - _Jinyuan Wang_, Mar 05 2020 %e A180224 1/2 = 0.5, 1/2 + 1/3 = 0.833..., 1/2 + 1/3 + 1/4 = 1.0833... > 1, so a(2) = 4. %o A180224 (PARI) default(realprecision, 10^5); e=exp(1); %o A180224 lista(nn) = {my(k=1); print1(k); for(n=2, nn, print1(", ", k=floor(e*k+(e+1)/2+(e-1/e)/(24*(n+1/2))))); } \\ _Jinyuan Wang_, Mar 05 2020 %Y A180224 Cf. A103762. %K A180224 nonn %O A180224 1,2 %A A180224 _Pierre CAMI_, Aug 16 2010 %E A180224 Name clarified by and more terms from _Jinyuan Wang_, Mar 05 2020