|
|
|
|
1, 1, -1, -4, 3, 28, -15, -288, 105, 3984, -945, -70080, 10395, 1506240, -135135, -38384640, 2027025, 1133072640, -34459425, -38038533120, 654729075, 1431213235200, -13749310575, -59645279232000, 316234143225, 2726781752217600, -7905853580625, -135661078090137600, 213458046676875
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
REFERENCES
|
V. van der Noort and N. J. A. Sloane, Paper in preparation, 2007.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
Q:= proc(n, k) option remember;
if k<2 then 1
elif `mod`(k, 2)=0 then (n-k+1)*Q(n+1, k-1) - (k-1)*Q(n+2, k-2)
else ( (n-k+1)*Q(n+1, k-1) - (k-1)*(n+1)*Q(n+2, k-2) )/n
fi; end;
|
|
MATHEMATICA
|
Q[n_, k_]:= Q[n, k]= If[k<2, 1, If[EvenQ[k], (n-k+1)*Q[n+1, k-1] - (k-1)*Q[n + 2, k-2], ((n-k+1)*Q[n+1, k-1] - (k-1)*(n+1)*Q[n+2, k-2])/n]]; Table[Q[1, k], {k, 0, 30}] (* G. C. Greubel, Jan 30 2020 *)
|
|
PROG
|
(Sage)
@CachedFunction
def Q(n, k):
if (k<2): return 1
elif (mod(k, 2)==0): return (n-k+1)*Q(n+1, k-1) - (k-1)*Q(n+2, k-2)
else: return ( (n-k+1)*Q(n+1, k-1) - (k-1)*(n+1)*Q(n+2, k-2) )/n
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|