A bit of an evergreen.
When power is x%, the share of p<.01 among p<.05 results is approximately x%
R Code:
ncp=seq(0,4,.01)
power05 =(1-pt(qt(.975,df=5000),df=5000,ncp=ncp)) power01 = (1-t(qt(.995,df=5000),df=5000,ncp=ncp)) share01 = power01/power05