cp's OEIS Frontend

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.

A095675 Triangle read by rows, formed from product of Aitken's (or Bell's) triangle (A011971) and Pascal's triangle (A007318).

This page as a plain text file.
%I A095675 #6 Mar 28 2015 18:17:14
%S A095675 1,3,2,10,13,5,37,72,55,15,151,393,450,245,52,674,2202,3365,2748,1166,
%T A095675 203,3263,12850,24582,26781,17048,5936,877,17007,78488,180477,245971,
%U A095675 208856,109107,32243,4140,94828,502327,1349900,2209695,2346559,1634998
%N A095675 Triangle read by rows, formed from product of Aitken's (or Bell's) triangle (A011971) and Pascal's triangle (A007318).
%C A095675 These triangles are to be thought of as infinite lower-triangular matrices.
%e A095675 Triangle begins:
%e A095675 1
%e A095675 3 2
%e A095675 10 13 5
%e A095675 37 72 55 15
%e A095675 151 393 450 245 52
%t A095675 a[0, 0] = 1; a[n_, 0] := a[n - 1, n - 1]; a[n_, k_] := a[n, k] = If[k < n + 1, a[n, k - 1] + a[n - 1, k - 1], 0]; p[n_, r_] := If[r <= n + 1, Binomial[n, r], 0]; am = Table[ a[n, r], {n, 0, 9}, {r, 0, 9}]; pm = Table[p[n, r], {n, 0, 9}, {r, 0, 9}]; t = Flatten[am.pm]; Delete[ t, Position[t, 0]] (* _Robert G. Wilson v_, Jul 12 2004 *)
%Y A095675 Cf. A007318, A011971, A095674. Row sums give A095676. First column is A005493.
%K A095675 nonn,tabl,easy
%O A095675 0,2
%A A095675 _N. J. A. Sloane_, based on a suggestion from _Gary W. Adamson_, Jun 22 2004
%E A095675 More terms from _Robert G. Wilson v_, Jul 13 2004