For example I introduce number 5 in n and the number give a range of the list

n=5;

{{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}}

Hi Camilo,

I do not understand the question. What do you mean with next list with any number? Do you mean that you want to add another list of to numbers to that list. Something like:

list = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 2}, {2, 1}, {5, 1}}

AppendTo[list, {RandomInteger[7], RandomInteger[7]}]

That would add one entry, i.e. a list of two numbers, to the outer list. Or do you want to add another list to that list like so:

Nest[Append[#, RandomInteger[7, Last[Dimensions /@ {list}]]] &, {list}, 3]

which would do the procedure 3 times and add an additional list of the same shape as the first one?

Cheers,

Marco