A079419 Primes p such that p/i(p) < prime(i(p)-1)/(i(p)-1), where i(p) = A049084(p).

3, 13, 19, 31, 43, 61, 73, 103, 109, 131, 139, 151, 167, 181, 193, 197, 199, 227, 229, 233, 241, 271, 281, 283, 311, 313, 317, 349, 353, 383, 401, 421, 433, 443, 461, 463, 467, 491, 503, 523, 571, 601, 617, 619, 643, 647, 661, 677, 743, 761, 773, 811, 823

Offset: 1

Author

Reinhard Zumkeller, Jan 07 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A049084, A079418.

Programs

Mathematica

seq[max_] := Module[{p = Prime[Range[max]]}, p[[1 + Position[Differences[p/Range[max]], ?(# < 0 &)] // Flatten]]]; seq[150] (* _Amiram Eldar, Mar 25 2025 *)

Formula

a(n) = A000040(A079418(n)).