How Create a list of the first 10,000 digits of Pi and sum it?

Question

I need help for a problem I m having trouble with. I need to create a list with the first 10'000 digits of Pi and sum the digits 259 to 7233.

I managed to create a list with the following code: list1 = RealDigits[Pi, 10, 10]

But then I am unable to do any computation with it.

Somebody can help me ?

Thanks !

Why create a list of 10000 digits when you are not going to use any digit beyoun digit 7223? — m_goldberg, Commented Feb 21, 2019 at 22:23
Why bother? It will be approximately equal to (7233 - 259 + 1) * (0 + 9) / 2 :-) — Selcuk, Commented Feb 22, 2019 at 0:57

Rohit Namjoshi · Accepted Answer · 2019-02-21 20:51:39Z

6

RealDigits[Pi, 10, 10000] // First // Take[#, {259, 7233}] & // Total

answered Feb 21, 2019 at 20:51

Rohit Namjoshi

10.3k6 gold badges18 silver badges69 bronze badges

$\begingroup$ Thanks it works as well! $\endgroup$
– user63037
Commented Feb 21, 2019 at 21:03

Add a comment |

user5601 · Accepted Answer · 2019-02-21 20:52:26Z

7

Does this do what you want:

Total @ RealDigits[Pi, 10, 10^4][[1,259;;7233]]

answered Feb 21, 2019 at 20:50

user5601

3,8102 gold badges24 silver badges59 bronze badges

$\begingroup$ Thanks a lot it works! $\endgroup$
– user63037
Commented Feb 21, 2019 at 21:03

Add a comment |

kglr · Accepted Answer · 2019-02-22 01:58:13Z

6

You can use the four-argument of form of RealDigits:

RealDigits[$x, b, len, n$] gives len digits starting with the coefficient of $b^n$.

m = 259;
n = 7233;
Total@First@RealDigits[Pi, 10, n - (m - 1), -(m - 1)]

31574

answered Feb 21, 2019 at 22:24

kglr

401k18 gold badges488 silver badges929 bronze badges

3

$\begingroup$ That should be Total @ First @ RealDigits[Pi, 10, 7233 - 259 + 1, -258] instead. $\endgroup$
– Carl Woll
Commented Feb 22, 2019 at 1:19
$\begingroup$ Thank you @CarlWoll. Fixed. $\endgroup$
– kglr
Commented Feb 22, 2019 at 1:58

Add a comment |

3 Answers 3