A079417 Numbers n such that round(prime(n)/n) < round(prime(n-1)/(n-1)).

21, 117, 4117, 4137, 4139, 4142, 4144, 4152, 63326, 63416, 63424, 399872, 399918, 399930, 399944, 399949, 399955, 1014615, 1014635, 1014648, 2582130, 2582200, 2582205, 2582242, 2582374, 2582437, 2582460, 2582483, 2582486, 6592657

Offset: 1

Author

Reinhard Zumkeller, Jan 07 2003

Keywords

• nonn

Comments

A079416(a(n)) < A079416(a(n-1)).

Links

• Hugo Pfoertner, Table of n, a(n) for n = 1..80

Crossrefs

A subsequence of A079418.

Cf. A000040, A079416.

Programs

Mathematica

Reap[For[n = 2, n <= 7*10^6, n++, If[Round[Prime[n]/n] < Round[Prime[n-1]/(n-1)], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jun 10 2017 *)

Extensions

More terms from Sascha Kurz, Jan 09 2003 and from Dean Hickerson, Jan 17 2003