The OEIS is supported by the many generous donors to the OEIS Foundation.
%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