A067037 a(n) = n^m where m = floor(Sum_{k=1..n} 1/k).

1, 2, 3, 16, 25, 36, 49, 64, 81, 100, 1331, 1728, 2197, 2744, 3375, 4096, 4913, 5832, 6859, 8000, 9261, 10648, 12167, 13824, 15625, 17576, 19683, 21952, 24389, 27000, 923521, 1048576, 1185921, 1336336, 1500625, 1679616, 1874161, 2085136

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..500

Example

a(4) = 16 as floor(1 + 1/2 + 1/3 + 1/4) = floor(2.08333333333333...) = 2;
a(11) = 1331 as floor(1 + 1/2 + ... + 1/10 + 1/11) = floor(3.01987734487...) = 3.

Prog

(PARI) { s=0; for (n=1, 500, s+=1/n; write("b067037.txt", n, " ", n^floor(s)) ) } \\ Harry J. Smith, Apr 28 2010

Crossrefs

Sequence in context: A045877 A261840 A100643 * A117926 A185251 A092503

Adjacent sequences: A067034 A067035 A067036 * A067038 A067039 A067040

Keyword

nonn

Author

Amarnath Murthy, Dec 29 2001

Extensions

More terms from Jason Earls, Jan 09 2002

Status

approved