A282794 Indices k of nontrivial Riemann zeta zeros such that floor(Im(zetazero(k))/(2*Pi)*log(Im(zetazero(k))/(2*Pi*e)) + 7/8) - k + 1 = -1.
136, 213, 256, 379, 399, 509, 531, 580, 639, 696, 705, 779, 795, 809, 871, 994, 1018, 1048, 1073, 1088, 1096, 1113, 1137, 1158, 1167, 1209, 1233, 1265, 1296, 1321, 1331, 1346, 1404, 1445, 1487
Offset: 1
Keywords
Programs
-
Mathematica
(* Definition: *) Monitor[Flatten[Position[Table[Floor[Im[ZetaZero[n]]/(2*Pi)*Log[Im[ZetaZero[n]]/(2*Pi*Exp[1])] + 7/8] - n + 1, {n, 1, 1500}], -1]], n]
Comments