OFFSET
1,1
MATHEMATICA
a=Sum[((1/24^n)*(5/(12*n + 1) - 1/(12*n + 2) - 4/(12 n + 3) -
3/(12*n + 5) + 4/(12*n + 7)) +
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}]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Nov 21 2008
STATUS
approved