A232819 Real part of the sum over the n-th powers of all Gaussian integers in the n X n base square in the first quadrant.

1, 0, -144, -2568, -28200, 0, 15203328, 675195936, 16696909080, 0, -25789252433472, -1612260342054360, -54804262577596532, 0, 161017938434267136000, 13718166932451951573120, 621130358284578576358416, 0, -3008072527724272784969384000, -320196271193421334219630013080

Offset

1,3

Links

Colin Barker, Table of n, a(n) for n = 1..200

Formula

a(A016825(n)) = 0, for n>=0. - Michel Marcus, Nov 09 2014

Mathematica

g[n_] := Sum[(a + b I)^n, {a, 1, n}, {b, 1, n}]; Table[Re[g[n]], {n, 33}]

Prog

(PARI) vector(100, n, real(sum(x=1, n, sum(y=1, n, (x+I*y)^n)))) \\ Colin Barker, Nov 09 2014

Crossrefs

Cf. A230308-A230310, A232820.

Sequence in context: A223687 A268625 A121344 * A185745 A075739 A074316

Adjacent sequences: A232816 A232817 A232818 * A232820 A232821 A232822

Keyword

sign

Author

José María Grau Ribas, Nov 30 2013

Status

approved