OFFSET
0,5
COMMENTS
Row sums are: {1, 2, 4, 14, 42, 102, 212, 394, 674, 1082, 1652, ...}.
LINKS
G. C. Greubel, Rows n = 0..100 of triangle, flattened
FORMULA
T(n,m) = 1 if n*m*(n - m) = 0, and n*m*(n - m) otherwise.
EXAMPLE
Triangle begins as:
1;
1, 1;
1, 2, 1;
1, 6, 6, 1;
1, 12, 16, 12, 1;
1, 20, 30, 30, 20, 1;
1, 30, 48, 54, 48, 30, 1;
MATHEMATICA
Table[If[n*m*(n-m)==0, 1, n*m*(n-m)], {n, 0, 10}, {m, 0, n}]//Flatten (* modified by G. C. Greubel, Apr 09 2019 *)
PROG
(PARI) {T(n, k) = if(n*k*(n-k)==0, 1, n*k*(n-k))}; \\ G. C. Greubel, Apr 09 2019
(Magma) [[n*k*(n-k) eq 0 select 1 else n*k*(n-k): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Apr 09 2019
(Sage)
@CachedFunction
def T(n, k):
if (n*k*(n-k)==0): return 1
else: return n*k*(n-k)
[[T(n, k) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Apr 09 2019
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Mar 03 2009
EXTENSIONS
Edited by G. C. Greubel, Apr 09 2019
STATUS
approved