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 A079418 #13 Mar 25 2025 17:18:09
%S A079418 2,6,8,11,14,18,21,27,29,32,34,36,39,42,44,45,46,49,50,51,53,58,60,61,
%T A079418 64,65,66,70,71,76,79,82,84,86,89,90,91,94,96,99,105,110,113,114,117,
%U A079418 118,121,123,132,135,137,141,143,144,145,148,149,150,152,153,154,156
%N A079418 Numbers k such that prime(k)/k < prime(k-1)/(k-1).
%H A079418 Amiram Eldar, <a href="/A079418/b079418.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%F A079418 a(n) = A049084(A079419(n)).
%F A079418 a(n) = PrimePi(A079419(n)). - _Amiram Eldar_, Mar 25 2025
%t A079418 Flatten[Position[Partition[Table[Prime[n]/n,{n,200}],2,1],_?(First[#] > Last[#]&),{1},Heads->False]]+1 (* _Harvey P. Dale_, Sep 10 2013 *)
%Y A079418 Cf. A079417, A079416, A000040, A000720.
%K A079418 nonn
%O A079418 1,1
%A A079418 _Reinhard Zumkeller_, Jan 07 2003