A079417 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

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

LINKS

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

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 *)

CROSSREFS

A subsequence of A079418.

Cf. A000040, A079416.

Sequence in context: A054257 A341570 A297316 * A267877 A183318 A204214

Adjacent sequences: A079414 A079415 A079416 * A079418 A079419 A079420

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Jan 07 2003

EXTENSIONS

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

STATUS

approved