A234804 Positions of 3's in A234323.

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

Author

Simon Plouffe and Robert G. Wilson v, Dec 30 2013

Keywords

• nonn

Crossrefs

Cf. A234323, A234800, A234802, A234803, A234805, A234806, A234807.

Programs

Mathematica

f[n_] := Floor[ Im[ N[ ZetaZero[ n]] ]]; t = Array[f, 20000]; f@# & /@ Select[ Range[20000 - 3], t[[#]] == t[[# + 2]] && t[[#]] != t[[# + 3]] &]