Question

Here’s what I have.

RandomChoice[{.5, .5} -> {Heads, Tails}, 3]

then I write

RandomChoice[{.5, .5} -> {Heads, Tails}, 5]

How do I increase this function by increments of 2n+1?

Answer 1

I interpreted your request as indicating you wanted the function, 2n + 1, with increments of 2. So the values would be: 3, 5, 7, 9, 11…If that is the correct interpretation then the following should work:

Table[RandomChoice[{heads, tails}, 2 n + 1], {n, 1, 10}]

So, f(n) = 2 n + 1 for the domain of {1,2,3,4,5,6,7,8,9,10}

You can achieve the same result with:

Table[RandomChoice[{heads, tails}, n], {n, 3, 21, 2}]

This makes it even clearer that the increment is 2. However it is not the same function. The target is the same as before but the domain is now the same as the target set: {3, 5, 7…21}