I am plotting three functions by the following codes:

Show[Plot[{2^x + 1}, {x, 3/2, 3}, PlotStyle -> Red], Plot[{x + 3}, {x, 1, 3}, PlotStyle -> Blue], Plot[{2 x^2 + 1}, {x, 1, 2}, PlotStyle -> Black], PlotRange -> All, AxesOrigin -> {1, 0}]

I find that the origin point (1,0) does not appear in the output. How to make Mathematica show the origin (1,0)?

I am plotting three functions using the following code:

Show[Plot[{2^x + 1}, {x, 3/2, 3}, PlotStyle -> Red], Plot[{x + 3}, {x, 1, 3}, PlotStyle -> Blue], Plot[{2 x^2 + 1}, {x, 1, 2}, PlotStyle -> Black], PlotRange -> All, AxesOrigin -> {1, 0}]

In the generated plot, the tick labels are absent at the chosen AxesOrigin point (1,0). How can Mathematica be made to label the origin (1,0)?