A308082 Numbers k such that floor(prime(k)/k) < floor(prime(k+1)/(k+1))

4, 11, 30, 68, 72, 180, 189, 442, 1051, 1059, 2700, 6454, 6458, 6465, 6472, 15927, 40072, 40121, 100361, 100363, 251706, 251709, 251723, 251737, 251761, 637234, 637320, 637323, 637330, 637340, 1617174, 4124436, 4124466, 4124472, 4124705, 10553414

Offset

1,1

Comments

Largest k below 10^8 is 69709965.

If instead of "less than" in floor(prime(k)/k) < floor(prime(k+1)/(k+1)), we use "greater than", we get A283053.

Links

Table of n, a(n) for n=1..36.

Mathematica

Select[Range@100000, Floor[Prime@#/#] < Floor[Prime[# + 1]/(# + 1)] &]

Prog

(PARI) isok(k) = prime(k)\k < prime(k+1)\(k+1); \\ Michel Marcus, May 11 2019
(PARI) lista(nn) = {my(p=2, ip=1, q=3); for (n=1, nn, if (p\ip < q\(ip+1), print1(ip, ", ")); p = q; ip ++; q = nextprime(p+1); ); } \\ Michel Marcus, May 11 2019

Crossrefs

Cf. A000040, A038605, A283053.

Sequence in context: A024829 A296290 A224215 * A099065 A296262 A102281

Adjacent sequences: A308079 A308080 A308081 * A308083 A308084 A308085

Keyword

nonn

Author

Giorgos Kalogeropoulos, May 11 2019

Status

approved