STATISTIC=0.0653
ns=c(NA,1,2,10^(1:10))
(PVAL <- sapply(ns,function(n) 2 * pt(-abs(STATISTIC), df = n - 1)))
names(PVAL)=paste("n",ns,sep="=")
PVAL

n=NA       n=1       n=2      n=10     n=100    n=1000   n=10000   n=1e+05
       NA       NaN 0.9584877 0.9493626 0.9480668 0.9479482 0.9479364 0.9479353
  n=1e+06   n=1e+07   n=1e+08   n=1e+09   n=1e+10
0.9479352 0.9479351 0.9479351 0.9479351 0.9479351