|
| |
|
|
A108890
|
|
Floor(product{k=1 to n} (sum{j=1 to k} 1/j)).
|
|
0
| |
|
|
1, 1, 2, 5, 13, 32, 83, 225, 638, 1871, 5651, 17537, 55772, 181348, 601754, 2034368, 6997316, 24456376, 86764857, 312157366, 1137925574, 4199870789, 15683541837, 59220398058, 225982562259, 871031643495, 3389581971377, 13311468152196
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
MATHEMATICA
| f[n_] := Floor[ Product[ Sum[1/j, {j, k}], {k, n}]]; Table[ f[n], {n, 28}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 18 2005)
|
|
|
PROG
| (PARI) for(n=1, 50, print1(floor(prod(k=1, n, sum(j=1, k, 1/j))), ", ")) (Klasen)
|
|
|
CROSSREFS
| Cf. A097423, A097424.
floor(A097423/A097424).
Sequence in context: A098586 A199812 A110320 * A027929 A001659 A088921
Adjacent sequences: A108887 A108888 A108889 * A108891 A108892 A108893
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Leroy Quet Jul 14 2005
|
|
|
EXTENSIONS
| More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Hauke Worpel (hw1(AT)email.com), Ryan Propper (rpropper(AT)stanford.edu) and Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 18 2005
|
| |
|
|
