OFFSET
0,4
COMMENTS
a(n) = A214075(n,n-2) for n > 1. - Reinhard Zumkeller, Jul 03 2012
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
FORMULA
EXAMPLE
a(2) = floor(1/1) = 1;
a(3) = floor(1/2 + 2/1) = floor(5/2) = 2;
a(4) = floor(1/3 + 2/2 + 3/1) = floor(26/6) = 4.
MATHEMATICA
s=0; Table[s+=HarmonicNumber[j]//N; Floor[s], {j, 0, 5!}] (* Vladimir Joseph Stephan Orlovsky, Feb 11 2010 *)
Join[{0}, Floor[Accumulate[HarmonicNumber[Range[0, 60]]]]] (* Harvey P. Dale, Sep 16 2019 *)
PROG
(Haskell)
import Data.Ratio ((%))
a022819 n = floor $ sum $ zipWith (%) [1 .. n-1] [n-1, n-2 .. 1]
-- Reinhard Zumkeller, Jul 03 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved