|
%I #14 Jan 03 2024 17:18:12
%S 3,1,4,1,5,9,3,8,2,9,9,8,4,1,9,5,1,1,7,0,6,0,6,5,3,3,4,4,1,6,6,7,8,2,
%T 5,8,5,1,6,3,8,7,2,1,4,8,0,4,8,7,7,4,7,9,4,5,4,5,4,8,0,0,3,6,3,0,8,7,
%U 6,9,9,2,0,0,5,7,7,9,6,1,4,0,0,1,0,7
%N Decimal expansion of an "almost Pi" BBP type solution in base 24: the sum of (21/(6 n + 1) + 15/(12 n + 1) - 9/(12 n + 5) + 30/(12 n + 7) - 1/(4 n + 1))/(12 * 24^n) over all n >= 0.
%t a=Sum[((1/24^n)*(5/(12*n + 1) - 1/(12*n + 2) - 4/(12 n + 3) -
%t 3/(12*n + 5) + 4/(12*n + 7)) +
%t 3*(1/24^n)*(5/(12*n + 2) + 1/(12 n + 3) + 2/(12*n + 7)))/4, {n, 0, Infinity}]; Table[Mod[Floor[a*10^n], 10], {n, 0, 200}]
%K nonn,cons,less
%O 1,1
%A _Roger L. Bagula_, Nov 21 2008
|
