Clear[x,pnp]pnp=2564855351Show[Plot[(((((pnp^2/x)+x^2))/x)/pnp),{x,0,60000}]]
2564855351
Plot[((pnp-(Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp)))*(pnp^2/x^2))),{x,40000,60000}]
Plot[(1/((pnp/(((pnp^2/x)+x^2))/x))),{x,0,60000}]