%I #9 Mar 12 2014 16:37:17
%S 1,1,1,1,4,1,11,1,26,1,1,57,57,1,120,1191,1,247,15619,1,502,156190,1,
%T 1013,1310354,1,1,2036,9738114,2036
%N Sub-triangle of A008292: terms with square indices.
%C Row sums are {1, 2, 5, 12, 28, 115, 1312, 15867, 156693, 1311369, 9742187,...}.
%e {1},
%e {1, 1},
%e {1, 4},
%e {1, 11},
%e {1, 26, 1},
%e {1, 57, 57},
%e {1, 120, 1191},
%e {1, 247, 15619},
%e {1, 502, 156190},
%e {1, 1013, 1310354, 1},
%e {1, 2036, 9738114, 2036}
%t << DiscreteMath`Combinatorica`
%t a = Table[Table[Eulerian[n + 1, m^2], {m, 0, Floor[Sqrt[n]]}], {n, 0, 10}];
%t Flatten[%]
%Y Cf. A008292,A003099
%K nonn,tabf
%O 0,5
%A _Roger L. Bagula_, Dec 13 2010
%E Edited by _N. J. A. Sloane_, Jan 01 2011
|