|
%I #10 Jan 28 2015 12:35:30
%S 111,150,169,224,231,329,357,373,415,478,493,540,547,564,575,630,637,
%T 650,677,684,711,728,750,758,775,782,790,792,814,826,844,873,899,912,
%U 931,934,939,954,963,973,976,986,1008,1025,1047,1067,1076,1125,1138,1185,1193,1203,1208,1219,1225,1227,1243,1267,1283,1290,1311,1318,1325,1329
%N Positions of 2's in A234323.
%t f[n_] := f[n] = Floor[ Im[ N[ ZetaZero[ n]] ]]; t = Array[f, 1000]; f@# & /@ Select[ Range@ 998, t[[#]] == t[[# + 1]] && t[[#]] != t[[# + 2]] &]
%Y Cf. A234323, A234800, A234802, A234804, A234805, A234806, A234807.
%K nonn,easy
%O 1,1
%A _Simon Plouffe_ and _Robert G. Wilson v_, Dec 30 2013
|
