%I #17 Oct 31 2019 07:30:50
%S 21,117,4117,4137,4139,4142,4144,4152,63326,63416,63424,399872,399918,
%T 399930,399944,399949,399955,1014615,1014635,1014648,2582130,2582200,
%U 2582205,2582242,2582374,2582437,2582460,2582483,2582486,6592657
%N Numbers n such that round(prime(n)/n) < round(prime(n-1)/(n-1)).
%C A079416(a(n)) < A079416(a(n-1)).
%H Hugo Pfoertner, <a href="/A079417/b079417.txt">Table of n, a(n) for n = 1..80</a>
%t 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 *)
%Y A subsequence of A079418.
%Y Cf. A000040, A079416.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jan 07 2003
%E More terms from _Sascha Kurz_, Jan 09 2003 and from _Dean Hickerson_, Jan 17 2003