|
|
A176302
|
|
a(n) = floor(abs( (i+n)^n )) where "i" is the Imaginary unit.
|
|
1
|
|
|
1, 5, 31, 289, 3446, 50653, 883883, 17850625, 409413666, 10510100501, 298523873866, 9294114390625, 314715395761089, 11514990476898413, 452702917746710142, 19031147999601100801, 851888944448164153708
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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}]
|
|
PROG
|
(PARI) default(realprecision, 50); vector(30, n, (abs((I+n)^n))\1 ) \\ G. C. Greubel, Nov 26 2019
(Magma) C<I> := ComplexField(); [Floor(Abs( (n+I)^n )): n in [1..30]]; // G. C. Greubel, Nov 26 2019
(Sage) [floor(abs( (n+i)^n )) for n in (1..30)] # G. C. Greubel, Nov 26 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|