A067053 Floor[ Sum_{1..n} 1/i ]^n.

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

Links

Table of n, a(n) for n=1..25.

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

Adjacent sequences: A067050 A067051 A067052 * A067054 A067055 A067056

Keyword

easy,nonn

Author

Amarnath Murthy, Jan 02 2002

Extensions

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

Status

approved