You can do this using the HANKEL and FLIPUD functions :
a = flipud(hankel(1:4,4:7));
Or using the TOEPLITZ and FLIPLR functions :
a = toeplitz(fliplr(1:4),4:7);
a = toeplitz(4:-1:1,4:7); %
You can also generalize these solutions to an arbitrary vector at which you have chosen the center point at which the vector can be divided. For instance:
>> vec = [6 3 45 1 1 2]; %
>> centerIndex = 3;
>> a = flipud(hankel(vec(1:centerIndex),vec(centerIndex:end)))
a =
45 1 1 2
3 45 1 1
6 3 45 1
In the above example, the first three elements of the vector that starts the first column and the last four elements of the vector along the first row are placed.