login
A067052
Floor((sum_{1..n} 1/i)^n).
1
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
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
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Jan 02 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 04 2002
STATUS
approved