Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- In[1]:= NestWhile[# + 1 &, 1, Sum[k*9*10^(k - 1), {k, 1, #}] < 10^6 &]
- Out[1]= 6
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement