login
A234804
Positions of 3's in A234323.
6
5826, 5978, 6494, 7563, 8106, 8942, 9601, 9856, 9976, 10000, 10679, 10909, 11499, 11577, 11916, 12080, 12384, 12584, 12607, 13204, 13493, 13637, 13775, 13912, 14025, 14208, 14622, 14970, 15387, 16039, 16176, 16210, 16223, 16320, 16336, 16656, 16749, 16891, 17046, 17143, 17234, 17292, 17354, 17405, 17937, 18241, 18248, 19174, 19304, 19368, 19412, 19494, 19975, 20072, 20237, 20727, 20825, 21009, 21099, 21173, 21403, 21450, 21707, 21993
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]] &]
KEYWORD
nonn
AUTHOR
STATUS
approved