login
A067053
Floor[ Sum_{1..n} 1/i ]^n.
0
1, 1, 1, 16, 32, 64, 128, 256, 512, 1024, 177147, 531441, 1594323, 4782969, 14348907, 43046721, 129140163, 387420489, 1162261467, 3486784401, 10460353203, 31381059609, 94143178827, 282429536481, 847288609443
OFFSET
1,4
EXAMPLE
a(6) = {floor[(1+1/2+1/3+1/4+1/5+1/6)]}^6 = {floor[2.45]}^6= 2^6= 64.
MATHEMATICA
Table[ Floor[ Sum[(1/i), {i, 1, n}]]^n, {n, 1, 30} ]
CROSSREFS
Sequence in context: A256818 A048170 A340624 * A271634 A031463 A045071
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Jan 02 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 04 2002
STATUS
approved