A276688 a(n) = Im([n]_{1+i}!), where [n]_q! is the q-factorial, i = sqrt(-1).

0, 0, 1, 8, 5, -220, 1895, -9140, -302175, -2778300, -95631825, -10071428100, -236788407375, 57706241794500, -7412904844112625, 525300693117661500, 348922898045520800625, 55166584329677385922500, 28368558145043150339199375, 46873210124734003815040957500

Offset

0,4

Links

Table of n, a(n) for n=0..19.

Eric Weisstein's World of Mathematics, q-Factorial.

Maple

a:= n-> Im(mul(((1+I)^j-1)/((1+I)-1), j=1..n)):
seq(a(n), n=0..20);  # Alois P. Heinz, Sep 14 2016

Mathematica

Im@Table[QFactorial[n, 1 + I], {n, 0, 20}]

Crossrefs

Cf. A275706 (real part), A005329.

Sequence in context: A106287 A361711 A239862 * A010117 A010119 A010116

Adjacent sequences: A276685 A276686 A276687 * A276689 A276690 A276691

Keyword

sign

Author

Vladimir Reshetnikov, Sep 13 2016

Status

approved