This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A108284 #8 Sep 13 2016 11:54:20 %S A108284 1,3,2,6,11,6,10,39,54,24,15,114,304,324,120,21,300,1384,2664,2280, %T A108284 720,28,741,5598,17364,25800,18360,5040,36,1757,21054,99012,227400, %U A108284 273720,166320,40320,45,4052,75504,518592,1728816,3131400,3160080,1673280,362880,55,9162,262104,2564892,11934816,30523800,45496080,39473280,18506880,3628800 %N A108284 Triangle read by rows, related to A108283. %F A108284 n-th row is the inverse binomial transform of n-th column of A108283. %e A108284 Triangle begins: %e A108284 1; %e A108284 3, 2; %e A108284 6, 11, 6; %e A108284 10, 39, 54, 24; %e A108284 15, 114, 304, 324, 120; ... %e A108284 Row 2: (3, 2, 0, 0, 0...), is the inverse binomial transform of column 2 of A108283: (3, 5, 7, 9...). %t A108284 (* T = A108283 *) T[_, 1] := 1; T[n_, n_] := n*(n + 1)/2; T[n_, k_] := (1 - (n - k + 1)^k*(k^2 - k*n + 1))/(n - k)^2; row[n_] := (TT = Table[T[k, n], {k, n, 2*n - 1}]; Table[Differences[TT, k], {k, 0, n - 1}][[All, 1]]); Table[row[n], {n, 1, 10}] // Flatten (* _Jean-François Alcover_, Sep 13 2016 *) %Y A108284 Cf. A108283. %K A108284 nonn,tabl %O A108284 1,2 %A A108284 _Gary W. Adamson_, May 30 2005 %E A108284 More terms from _Jean-François Alcover_, Sep 13 2016