A234714 Numerator of sum_{k=1..n} 1/(k*H(k)) where H(k) is the harmonic number H(k) = sum_{j=1..n} 1/j.

0, 1, 4, 50, 1349, 194713, 9917687, 112451057, 87707471002, 638247495586258, 39621419345255038, 3367553690081394959018, 293578866124447319211215128, 340463591070905769538621961175104, 403214792232827898020426758621769680732, 16787247654077861265551571547714793328259156

Offset

0,3

Comments

The corresponding denominators are in A234715.

Links

Table of n, a(n) for n=0..15.

Mathematica

nmax = 54; Table[ Numerator[ Sum[ 1/(k HarmonicNumber[k]), {k, 1, n} ] ], {n, 0, nmax} ]

Crossrefs

Cf. A001008, A002805, A000254, A096987, A124432, A234715

Sequence in context: A139087 A349655 A173218 * A201829 A201209 A026865

Adjacent sequences: A234711 A234712 A234713 * A234715 A234716 A234717

Keyword

nonn,easy

Author

Stuart Clary, Dec 29 2013

Status

approved