|
%I #8 Sep 08 2022 08:45:52
%S 1,5,31,289,3446,50653,883883,17850625,409413666,10510100501,
%T 298523873866,9294114390625,314715395761089,11514990476898413,
%U 452702917746710142,19031147999601100801,851888944448164153708
%N a(n) = floor(abs( (i+n)^n )) where "i" is the Imaginary unit.
%H G. C. Greubel, <a href="/A176302/b176302.txt">Table of n, a(n) for n = 1..375</a>
%p seq(floor(abs((n+I)^n)), n = 1..30); # _G. C. Greubel_, Nov 26 2019
%t Table[Floor@Abs[(I + n)^n], {n,30}]
%o (PARI) default(realprecision, 50); vector(30, n, (abs((I+n)^n))\1 ) \\ _G. C. Greubel_, Nov 26 2019
%o (Magma) C<I> := ComplexField(); [Floor(Abs( (n+I)^n )): n in [1..30]]; // _G. C. Greubel_, Nov 26 2019
%o (Sage) [floor(abs( (n+i)^n )) for n in (1..30)] # _G. C. Greubel_, Nov 26 2019
%Y Cf. A115415, A115416.
%K nonn
%O 1,2
%A _José María Grau Ribas_, Apr 14 2010
|
