|
%I #10 Jun 03 2015 14:59:19
%S 41,59,47,45,52,52,45,50,46,40,43,41,48,35,45,33,35,41,54,48,48,47,49,
%T 54,32,55,35,44,40,33,45,44,39,47,45,49,21,45,42,40,36,58,38,47,36,51,
%U 54,49,50,38
%N Sum of successive digits of Pi - 3 by 10 terms.
%e a(1)=1+4+1+5+9+2+6+5+3+5.
%e The first ten digits of Pi-3 are 1,4,1,5,9,2,6,5,3,and 5, the sum of which is a(1)=41. The second ten digits of Pi-3 are 8,9,7,9,3,2,3,8,4,and 6, the sum of which is a(2)=59. - _Harvey P. Dale_, Jun 03 2015
%t $MaxExtraPrecision = 10000; a = {}; b = Pi - 3; Do[b = b*10^10; AppendTo[a, Plus @@ IntegerDigits[Floor[b]]]; b = FractionalPart[b], {50}]; a
%t With[{trms=50},Total/@Partition[RealDigits[Pi-3,10,10*trms][[1]],10]] (* _Harvey P. Dale_, Jun 03 2015 *)
%K nonn,base
%O 1,1
%A _Paul Curtz_, Nov 20 2010
|
