table[sum(modulo(trunc(pi*10^(i)),10), i=0 to x), {x,1,50}]