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 A248911 #10 Sep 08 2022 08:46:10 %S A248911 2,0,0,0,1,0,1,0,1,3,2,4,5,3,3,5,8,6,8,8,6,7,7,9,13,13,10,10,7,7,17, %T A248911 16,18,15,21,18,19,21,20,21,23,20,25,22,21,19,26,33,32,29,28,29,26,31, %U A248911 32,33,34,31,32,31,28,32,41,40,37,36,45,45,50,47,46,46 %N A248911 a(n) = floor( prime(n) - (n+1)*log(n) ). %C A248911 The function log gives the natural logarithm (to base e). %C A248911 See A059111 for the sequence a(n) = floor(prime(n)-n*log(n)). %H A248911 Michel Lagneau, <a href="/A248911/b248911.txt">Table of n, a(n) for n = 1..10000</a> %e A248911 a(8) = 0 because floor(prime(8)-(8+1)*log(8)) = floor(19 -9*2.07944154...) = floor(.28502612...) = 0. %p A248911 with(numtheory): %p A248911 for n from 1 to 200 do: %p A248911 p:=floor(evalf(ithprime(n)-(n+1)*ln(n))): printf(`%d, `,p): %p A248911 od: %t A248911 Table[Floor[Prime[n]-(n+1)Log[n]], {n, 100}] %o A248911 (Magma) [Floor(NthPrime(n)-(n+1)*Log(n)): n in [1..80]]; // _Vincenzo Librandi_, Oct 16 2014 %Y A248911 Cf. A000040, A059111, A059112. %K A248911 nonn %O A248911 1,1 %A A248911 _Michel Lagneau_, Oct 16 2014