A035003 Sorted entries in triangle in A014784.
1, 2, 3, 7, 12, 38, 69, 81, 295, 552, 702, 3098, 5901, 7857, 8559, 42271, 81444, 111618, 128034, 726734, 1411197, 1971945, 2339631, 2467665, 15366679, 30006624, 42508638, 51627510, 56434806, 391888514, 768410349, 1099558881
Offset: 0
Crossrefs
Cf. A014784.
Programs
-
Mathematica
a[ 1,1 ]=1; a[ n_,k_ ] := 0 /; (k>n || k<=0); a[ n_,1 ]=Sum[ a[ n-1,i ],{i,1,n-1} ] a[ n_,k_ ] := a[ n,k ]=2a[ n,k-1 ]-a[ n,k-2 ]-a[ n-1,k-1 ]-a[ n-1,k-2 ]; Union[ Flatten[ Table[ a[ n,i ],{n,1,20},{i,1,n} ] ] ]
Comments