logをつかってかんがえれば、条件を満たす数が分かる。

後はそれを足すだけ。 

p063 = sum[floor$1/(1-ln n)| n<-[1..9]]
where ln x = log x / log 10