OFFSET
0,2
COMMENTS
Rows give the successive first differences of A001339.
LINKS
EXAMPLE
The top left corner of the array:
1, 3, 11, 49, 261, 1631, 11743
2, 8, 38, 212, 1370, 10112, 84158
6, 30, 174, 1158, 8742, 74046, 696750
24, 144, 984, 7584, 65304, 622704, 6523224
120, 840, 6600, 57720, 557400, 5900520, 68019240
720, 5760, 51120, 499680, 5343120, 62118720, 780827760
5040, 45360, 448560, 4843440, 56775600, 718709040, 9778048560
MATHEMATICA
T[r_, c_]:=Sum[Binomial[r, k](1 + c + k)!, {k, 0, r}]; Table[T[r - c, c], {r, 0, 10}, {c, 0, r}] // Flatten (* Indranil Ghosh, Apr 11 2017 *)
PROG
(Scheme) (define (A276589 n) (A276588bi (A025581 n) (A002262 n))) ;; Code for A276588bi given in A276588.
(PARI) T(r, c) = sum(k=0, r, binomial(r, k)*(1 + c + k)!);
for(r=0, 10, for(c=0, r, print1(T(r - c, c), ", "); ); print(); ) \\ Indranil Ghosh, Apr 11 2017
(Python)
from sympy import binomial, factorial
def T(r, c): return sum([binomial(r, k) * factorial(1 + c + k) for k in range(r + 1)])
for r in range(11): print([T(r - c, c) for c in range(r + 1)]) # Indranil Ghosh, Apr 11 2017
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Sep 19 2016
STATUS
approved