Set operator - how to create the list of Monday to Friday seq number for 2016.

Create the list of seq number of weekday for 2016. Here 4 represents Monday. 5 Tuesday, 6 Thursday and 0 for Friday.

> seq(1,365,1)[is.element(seq(1,365,1)%%7,c(6,4,5,0,1))]
  [1]   1   4   5   6   7   8  11  12  13  14  15  18  19  20  21  22  25  26  27  28  29  32  33  34  35  36  39  40  41
 [30]  42  43  46  47  48  49  50  53  54  55  56  57  60  61  62  63  64  67  68  69  70  71  74  75  76  77  78  81  82
 [59]  83  84  85  88  89  90  91  92  95  96  97  98  99 102 103 104 105 106 109 110 111 112 113 116 117 118 119 120 123
 [88] 124 125 126 127 130 131 132 133 134 137 138 139 140 141 144 145 146 147 148 151 152 153 154 155 158 159 160 161 162
[117] 165 166 167 168 169 172 173 174 175 176 179 180 181 182 183 186 187 188 189 190 193 194 195 196 197 200 201 202 203
[146] 204 207 208 209 210 211 214 215 216 217 218 221 222 223 224 225 228 229 230 231 232 235 236 237 238 239 242 243 244
[175] 245 246 249 250 251 252 253 256 257 258 259 260 263 264 265 266 267 270 271 272 273 274 277 278 279 280 281 284 285
[204] 286 287 288 291 292 293 294 295 298 299 300 301 302 305 306 307 308 309 312 313 314 315 316 319 320 321 322 323 326
[233] 327 328 329 330 333 334 335 336 337 340 341 342 343 344 347 348 349 350 351 354 355 356 357 358 361 362 363 364 365
>