|
%I #10 Jan 28 2015 12:36:19
%S 5826,5978,6494,7563,8106,8942,9601,9856,9976,10000,10679,10909,11499,
%T 11577,11916,12080,12384,12584,12607,13204,13493,13637,13775,13912,
%U 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
%N Positions of 3's in A234323.
%t f[n_] := Floor[ Im[ N[ ZetaZero[ n]] ]]; t = Array[f, 20000]; f@# & /@ Select[ Range[20000 - 3], t[[#]] == t[[# + 2]] && t[[#]] != t[[# + 3]] &]
%Y Cf. A234323, A234800, A234802, A234803, A234805, A234806, A234807.
%K nonn
%O 1,1
%A _Simon Plouffe_ and _Robert G. Wilson v_, Dec 30 2013
|
