A067052 Floor((sum_{1..n} 1/i)^n).

1, 2, 6, 18, 62, 216, 787, 2977, 11605, 46467, 190494, 797508, 3402436, 14766894, 65102146, 291182808, 1319875827, 6057465890, 28124389866, 132006302556, 625958670808, 2996991862997, 14480681454264, 70575215105489

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

a(6) = floor[(1+1/2+1/3+1/4+1/5+1/6)^6] = floor[2.45^6] = floor(216.270112515625...) = 216.

Maple

A067052:=n->floor(add(1/i, i=1..n)^n); seq(A067052(n), n=1..50); # Wesley Ivan Hurt, Nov 27 2013

Mathematica

Table[ Floor[ Sum[1/i, {i, 1, n} ]^n], {n, 1, 30} ]
With[{nn=30}, Floor[#[[1]]^#[[2]]]&/@Thread[{Accumulate[1/Range[nn]], Range[nn]}]] (* Harvey P. Dale, Feb 16 2013 *)

Crossrefs

Sequence in context: A262590 A150053 A150054 * A150055 A150056 A204686

Adjacent sequences: A067049 A067050 A067051 * A067053 A067054 A067055

Keyword

easy,nonn

Author

Amarnath Murthy, Jan 02 2002

Extensions

More terms from Robert G. Wilson v, Jan 04 2002

Status

approved