|
%I #30 Mar 29 2024 20:15:06
%S 1,2,4,7,9,13,19,24,27,34,63,71,91,135,159,186,212,298,315,363,453,
%T 693,922,1496,3777,4765,6709,18859,44555,73997,82552,87761,95248,
%U 354769,415587,420891,1115578,8546950
%N Indices of records of minimal distance between successive Riemann zeta zeros.
%C Lehmer phenonomena in Riemann zeta function occur when distances between successive zeros are small.
%H M. Kehoe, <a href="https://www.slideshare.net/MatthewKehoe1/riemanntex">Computational Methods for the Riemann Zeta function</a>, 2015.
%F a(n) = A254297(n+1)-1.
%t kk = 10; aa = {}; Do[ll = Im[N[ZetaZero[n + 1] - ZetaZero[n], 50]];
%t If[ll < kk, AppendTo[aa, n]; kk = ll], {n, 1, 1500}]; aa
%Y Cf. A114886, A254297.
%K nonn,more
%O 1,2
%A _Artur Jasinski_, Sep 12 2019
|
