This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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; text; internal format)
 OFFSET 1,3 LINKS MATHEMATICA f[n_] := Floor[ Product[ Sum[1/j, {j, k}], {k, n}]]; Table[ f[n], {n, 28}] (from Robert G. Wilson v, 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: A199812 A110320 A219230 * A220739 A027929 A001659 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, Jul 18 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified May 18 09:19 EDT 2013. Contains 225419 sequences.