%I #22 Feb 05 2024 01:59:23
%S 2,6,37,326,3802,54992,948645,18992710,432655358,11046221254,
%T 312347907386,9688154906657,327018557066164,11932588574197763,
%U 468012768020438830,19634066192684343922,877272066059957914873,41590621075366029857195,2085184183314142201403129
%N a(n) = floor((n+1/n)^n).
%H Vincenzo Librandi, <a href="/A014052/b014052.txt">Table of n, a(n) for n = 1..300</a>
%p A014052:=n->floor((n+1/n)^n): seq(A014052(n), n=1..20); # _Wesley Ivan Hurt_, Aug 15 2016
%t Table[Floor[(n+1/n)^n], {n, 20}] (* _Wesley Ivan Hurt_, Aug 15 2016 *)
%o (Magma) [Floor((n+1/n)^n): n in [1..20]]; // _Vincenzo Librandi_, Oct 17 2011
%o (PARI) a(n)=(n+1/n)^n\1 \\ _Charles R Greathouse IV_, Apr 17 2012
%o (SageMath) [int((n+1/n)^n) for n in range(1,51)] # _G. C. Greubel_, Feb 05 2024
%Y Cf. A014056, A014058.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Jun 14 1998
|