%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