login
A079417
Numbers n such that round(prime(n)/n) < round(prime(n-1)/(n-1)).
3
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,1
COMMENTS
A079416(a(n)) < A079416(a(n-1)).
LINKS
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.
Sequence in context: A054257 A341570 A297316 * A267877 A183318 A204214
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