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