%I #8 Jan 03 2016 17:21:24
%S 1,2,6,16,36,80,172,358,729,1453,2843,5475,10384,19427,35890,65536,
%T 118377,211675,374936,658238,1145961,1979340,3393261,5775991,9765625,
%U 16405018,27389511,45461160,75033331,123176061,201164105,326899345
%N a(n) = floor(n^sqrt(n)).
%H Harry J. Smith, <a href="/A066641/b066641.txt">Table of n, a(n) for n = 1..300</a>
%e a(5) = 36 as 5^(5^1/2)) = 36.5548026774732189429530238298972...
%t Table[ Floor[n^Sqrt[n]], {n, 1, 35} ]
%o (PARI) { default(realprecision, 100); for (n=1, 300, write("b066641.txt", n, " ", floor(n^sqrt(n) + 10^-20)) ) } \\ _Harry J. Smith_, Mar 15 2010
%K easy,nonn
%O 1,2
%A _Amarnath Murthy_, Dec 29 2001
%E More terms from _Robert G. Wilson v_, Jan 03 2002
|