OFFSET
1,1
MATHEMATICA
f[n_] := Floor[ Im[ N[ ZetaZero[ n]] ]]; t = Array[f, 20000]; f@# & /@ Select[ Range[20000 - 3], t[[#]] == t[[# + 2]] && t[[#]] != t[[# + 3]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Simon Plouffe and Robert G. Wilson v, Dec 30 2013
STATUS
approved