login
a(n) = ceiling(n*(e^Pi + Pi^e)).
3

%I #28 Sep 08 2022 08:45:27

%S 0,46,92,137,183,228,274,320,365,411,456,502,548,593,639,684,730,776,

%T 821,867,912,958,1004,1049,1095,1140,1186,1232,1277,1323,1368,1414,

%U 1460,1505,1551,1596,1642,1688,1733,1779,1824,1870,1916,1961,2007,2052,2098

%N a(n) = ceiling(n*(e^Pi + Pi^e)).

%H Vincenzo Librandi, <a href="/A121929/b121929.txt">Table of n, a(n) for n = 0..999</a> [Offset shifted by _Georg Fischer_, Sep 02 2022]

%p A121929:=n->ceil((n-1)*(exp(1)^Pi+Pi^exp(1))): seq(A121929(n), n=1..100); # _Wesley Ivan Hurt_, Jan 21 2017

%t With[{a = E^Pi + Pi^E}, Ceiling[a Range[0, 80]]] (* _Vincenzo Librandi_, Feb 21 2013 *)

%o (PARI) for(n=0,50, print1(ceil(n*(Pi^exp(1)+exp(Pi))), ", ")) \\ _G. C. Greubel_, Nov 06 2017

%o (Magma) C<i> := ComplexField(); [Ceiling(n*(Pi(C)^Exp(1) + Exp(1)^Pi(C))): n in [0..50]]; // _G. C. Greubel_, Nov 06 2017

%Y Cf. A019314, A121854, A121855, A121856, A121857, A121928, A121930.

%K nonn,easy

%O 0,2

%A _Mohammad K. Azarian_, Sep 02 2006

%E Offset corrected by _Mohammad K. Azarian_, Nov 20 2008

%E Offset changed to 0 by _Georg Fischer_, Sep 02 2022