OFFSET
0,7
MATHEMATICA
p[n_, k_]=Product[(E/(2-E))^i, {i, 1, n}]/Product[(E/(2-E))^i, {i, Floor[n/2^k], n}]
digits=80
f[n_]=Sum[Floor[p[n, k]/(8*p[n-1, k])], {k, 1, 8}]
at=Table[f[n], {n, 2, digits}]
CROSSREFS
KEYWORD
sign,uned,less
AUTHOR
Roger L. Bagula, Nov 21 2003
STATUS
approved