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 A079417 #17 Oct 31 2019 07:30:50 %S A079417 21,117,4117,4137,4139,4142,4144,4152,63326,63416,63424,399872,399918, %T A079417 399930,399944,399949,399955,1014615,1014635,1014648,2582130,2582200, %U A079417 2582205,2582242,2582374,2582437,2582460,2582483,2582486,6592657 %N A079417 Numbers n such that round(prime(n)/n) < round(prime(n-1)/(n-1)). %C A079417 A079416(a(n)) < A079416(a(n-1)). %H A079417 Hugo Pfoertner, <a href="/A079417/b079417.txt">Table of n, a(n) for n = 1..80</a> %t A079417 Reap[For[n = 2, n <= 7*10^6, n++, If[Round[Prime[n]/n] < Round[Prime[n-1]/(n-1)], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Jun 10 2017 *) %Y A079417 A subsequence of A079418. %Y A079417 Cf. A000040, A079416. %K A079417 nonn %O A079417 1,1 %A A079417 _Reinhard Zumkeller_, Jan 07 2003 %E A079417 More terms from _Sascha Kurz_, Jan 09 2003 and from _Dean Hickerson_, Jan 17 2003