julia> F
5-element Array{Any,1}:
  6
 28
 30
 34
 49

F
1-element Array{Any,1}:
 Any[6, 28, 30, 34, 49]

F[1]=vcat(F[1],F[2:end])

while true
    k=2;

    if length(F)==1
        break;
    end

    filter!(x->x≠F[k],F)

end