R: “lenght.out” argument from the seq() function not working properly

Question

I\'m trying to build this function to check the multiples of 3, from 0 to the half of the element "number". I\'m adding "n" that limits the number of res