A176302 a(n) = floor(abs( (i+n)^n )) where "i" is the Imaginary unit.

1, 5, 31, 289, 3446, 50653, 883883, 17850625, 409413666, 10510100501, 298523873866, 9294114390625, 314715395761089, 11514990476898413, 452702917746710142, 19031147999601100801, 851888944448164153708

Offset: 1

Author

José María Grau Ribas, Apr 14 2010

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..375

Crossrefs

Cf. A115415, A115416.

Programs

Magma

C := ComplexField(); [Floor(Abs( (n+I)^n )): n in [1..30]]; // G. C. Greubel, Nov 26 2019

Maple

seq(floor(abs((n+I)^n)), n = 1..30); # G. C. Greubel, Nov 26 2019

Mathematica

Table[Floor@Abs[(I + n)^n], {n,30}]

PARI

default(realprecision, 50); vector(30, n, (abs((I+n)^n))\1 ) \\ G. C. Greubel, Nov 26 2019

Sage

[floor(abs( (n+i)^n )) for n in (1..30)] # G. C. Greubel, Nov 26 2019