One way to approach this is using “cut and paste” -- which is okay for a “one-off” problem, but if you’re going to need to do this over and over, you’ll want to turn it into a loop!

N[Exp[Pi*Sqrt[163]],20]

N[Exp[Pi*Sqrt[163]],21]

N[Exp[Pi*Sqrt[163]],22]

N[Exp[Pi*Sqrt[163]],23]

N[Exp[Pi*Sqrt[163]],24]

N[Exp[Pi*Sqrt[163]],25]

N[Exp[Pi*Sqrt[163]],26]

N[Exp[Pi*Sqrt[163]],27]

N[Exp[Pi*Sqrt[163]],28]

N[Exp[Pi*Sqrt[163]],29]

N[Exp[Pi*Sqrt[163]],30]

N[Exp[Pi*Sqrt[163]],31]

i=21
While [i < 35, Print [{i,N[Exp[Pi*Sqrt[163]],i]}];i++]

From the appendix A:

c=N[Pi]

MachineNumberQ[c]

MachineNumberQ[Pi]