login
A234803
Positions of 2's in A234323.
6
111, 150, 169, 224, 231, 329, 357, 373, 415, 478, 493, 540, 547, 564, 575, 630, 637, 650, 677, 684, 711, 728, 750, 758, 775, 782, 790, 792, 814, 826, 844, 873, 899, 912, 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
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]] &]
KEYWORD
nonn,easy
AUTHOR
STATUS
approved