Normal distribution values
Mathematica 132 136 127
If Erfc is acceptable, here's my attempt, accurate to 6 places:
t=Table;TableForm[Partition[t[0.5 Erfc[-x/Sqrt[2]],{x,0,3.99,.01}],10], 
TableHeadings-&gt;{t[k,{k,0,3.9,.1}],t[k,{k,0,.09,.01}]}]