A177822 Sub-triangle of A008292: terms with square indices.
1, 1, 1, 1, 4, 1, 11, 1, 26, 1, 1, 57, 57, 1, 120, 1191, 1, 247, 15619, 1, 502, 156190, 1, 1013, 1310354, 1, 1, 2036, 9738114, 2036
Offset: 0
Examples
{1}, {1, 1}, {1, 4}, {1, 11}, {1, 26, 1}, {1, 57, 57}, {1, 120, 1191}, {1, 247, 15619}, {1, 502, 156190}, {1, 1013, 1310354, 1}, {1, 2036, 9738114, 2036}
Programs
-
Mathematica
<< DiscreteMath`Combinatorica` a = Table[Table[Eulerian[n + 1, m^2], {m, 0, Floor[Sqrt[n]]}], {n, 0, 10}]; Flatten[%]
Extensions
Edited by N. J. A. Sloane, Jan 01 2011
Comments