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 A103600 #14 Mar 27 2019 19:13:39 %S A103600 2,2,2,3,3,5,7,13,29,53,109,277,809,2741,11789,64663,483281,5195977, %T A103600 85861889,2358926351,118185163069,12041724518809 %N A103600 Smallest prime p such that Sum_{primes q <= p} 1/q >= n/6. %t A103600 Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/6, m++]; %t A103600 Prime[m], {n, 1, 17}] (* _Robert Price_, Mar 27 2019 *) %Y A103600 Cf. A016088, A046024, A103591-A103599. %K A103600 nonn %O A103600 1,1 %A A103600 _James R. Buddenhagen_, Mar 28 2005 %E A103600 a(1), a(2), a(4) added for correctness, and a(19-21) included by _Martin Raab_, Mar 31 2009 %E A103600 a(22) from _Charles R Greathouse IV_, Jan 18 2012