|
|
A015017
|
|
q-factorial numbers for q=-4.
|
|
1
|
|
|
1, -3, -39, 1989, 407745, -333943155, -1094331718935, 14343405840081045, 752010424789609108305, -157707866234752874148183075, -132294978377551030760819002477575, 443908259132104963309174796130361690725
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Prod_{k=1}^{n} (q^k - 1) / (q - 1).
|
|
MATHEMATICA
|
RecurrenceTable[{a[1]==1, a[n]==(((-4)^n-1) * a[n-1])/(-5)}, a, {n, 18}] (* Vincenzo Librandi, Oct 26 2012 *)
|
|
PROG
|
(Magma) [n le 1 select 1 else ((-4)^n - 1)*Self(n-1)/(-5): n in [1..18]]; // Vincenzo Librandi, Oct 26 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|