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 A079419 #10 Mar 25 2025 16:44:47
%S A079419 3,13,19,31,43,61,73,103,109,131,139,151,167,181,193,197,199,227,229,
%T A079419 233,241,271,281,283,311,313,317,349,353,383,401,421,433,443,461,463,
%U A079419 467,491,503,523,571,601,617,619,643,647,661,677,743,761,773,811,823
%N A079419 Primes p such that p/i(p) < prime(i(p)-1)/(i(p)-1), where i(p) = A049084(p).
%H A079419 Amiram Eldar, <a href="/A079419/b079419.txt">Table of n, a(n) for n = 1..10000</a>
%F A079419 a(n) = A000040(A079418(n)).
%t A079419 seq[max_] := Module[{p = Prime[Range[max]]}, p[[1 + Position[Differences[p/Range[max]], _?(# < 0 &)] // Flatten]]]; seq[150] (* _Amiram Eldar_, Mar 25 2025 *)
%Y A079419 Cf. A000040, A049084, A079418.
%K A079419 nonn
%O A079419 1,1
%A A079419 _Reinhard Zumkeller_, Jan 07 2003