%I
%S 12,18,20,23,22,25,24,24,25,21,22,19,18,18,18,14,11,11,9,6,6,4,2,2,
%T 8,9,8,11,10,12,23,26,30,28,37,37,41,44,46,50,55,53,
%U 61,62,64,64,73,83,86,86,87,92,91,100,104,107,111,112,116,118
%N a(n) is equal to the difference between the nearest integer to the imaginary part of the nth zero of the Riemann zeta function and the nth prime.
%F a(n) = A002410(n)  prime(n).
%e 14  2 = 12, 21  3 = 18, 25  5 = 20.
%o (PARI) lista(nn) = my(v=apply(round, lfunzeros(lzeta, nn))); vector(#v, n, v[n]  prime(n)); \\ _Michel Marcus_, Sep 14 2018
%Y Cf. A000040, A002410.
%K sign
%O 1,1
%A _Mark A. Thomas_, Sep 14 2018
