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

%I #12 Dec 15 2017 17:35:49

%S 1,2,3,16,25,36,49,64,81,100,1331,1728,2197,2744,3375,4096,4913,5832,

%T 6859,8000,9261,10648,12167,13824,15625,17576,19683,21952,24389,27000,

%U 923521,1048576,1185921,1336336,1500625,1679616,1874161,2085136

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

%H Harry J. Smith, <a href="/A067037/b067037.txt">Table of n, a(n) for n = 1..500</a>

%e a(4) = 16 as floor(1 + 1/2 + 1/3 + 1/4) = floor(2.08333333333333...) = 2;

%e a(11) = 1331 as floor(1 + 1/2 + ... + 1/10 + 1/11) = floor(3.01987734487...) = 3.

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

%K nonn

%O 1,2

%A _Amarnath Murthy_, Dec 29 2001

%E More terms from _Jason Earls_, Jan 09 2002