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,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A000040, A049084, A079418.

Sequence in context: A038974 A168425 A252090 * A117300 A023215 A185069

Adjacent sequences: A079416 A079417 A079418 * A079420 A079421 A079422

Keyword

nonn

Author

Reinhard Zumkeller, Jan 07 2003

Status

approved