OFFSET
3,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 3..5000
FORMULA
With p(n, k) = log(n!) / log((n-floor(n/2^k))!) then a(n) = Sum_{k=1..8} floor(p(n, k)/p(n-1, k)) for n>2.
MATHEMATICA
p[n_, k_]:= Sum[Log[i], {i, 1, n}]/Sum[Log[i], {i, 1, n-Floor[n/2^k]}]; f[n_]=Sum[Floor[p[n, k]/p[n-1, k]], {k, 1, 8}]; Table[f[n], {n, 3, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 21 2003
STATUS
approved