|
|
A015015
|
|
q-factorial numbers for q=-3.
|
|
1
|
|
|
1, -2, -14, 280, 17080, -3108560, -1700382320, 2788627004800, 13722833490620800, -202576467988544249600, -8971504037808659182035200, 1191954026463258458925196672000, 475090227821752019816863814722432000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = product_{k=1..n} ((-3)^k - 1)/(-3 - 1).
|
|
MATHEMATICA
|
RecurrenceTable[{a[1]==1, a[n]==(((-3)^n - 1) * a[n-1])/(-4)}, a, {n, 18}] (* Vincenzo Librandi, Oct 26 2012 *)
|
|
PROG
|
(Magma) [n le 1 select 1 else ((-3)^n - 1)*Self(n-1)/(-4): n in [1..18]]; // Vincenzo Librandi, Oct 26 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|