%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