%I #14 Dec 05 2013 19:55:07

%S 1,2,6,18,62,216,787,2977,11605,46467,190494,797508,3402436,14766894,

%T 65102146,291182808,1319875827,6057465890,28124389866,132006302556,

%U 625958670808,2996991862997,14480681454264,70575215105489

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

%H Harvey P. Dale, <a href="/A067052/b067052.txt">Table of n, a(n) for n = 1..1000</a>

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

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

%t Table[ Floor[ Sum[1/i, {i, 1, n} ]^n], {n, 1, 30} ]

%t With[{nn=30},Floor[#[[1]]^#[[2]]]&/@Thread[{Accumulate[1/Range[nn]],Range[nn]}]] (* _Harvey P. Dale_, Feb 16 2013 *)

%K easy,nonn

%O 1,2

%A _Amarnath Murthy_, Jan 02 2002

%E More terms from _Robert G. Wilson v_, Jan 04 2002