login
A085503
Sub-triangle of A008292: take every second term of every second row.
2
1, 1, 1, 1, 66, 1, 1, 1191, 1191, 1, 1, 14608, 156190, 14608, 1, 1, 152637, 9738114, 9738114, 152637, 1, 1, 1479726, 423281535, 2275172004, 423281535, 1479726, 1, 1, 13824739, 15041229521, 311387598411
OFFSET
0,5
LINKS
EXAMPLE
{1},
{1, 1},
{1, 66, 1},
{1, 1191, 1191, 1},
{1, 14608, 156190, 14608, 1},
{1, 152637, 9738114, 9738114, 152637, 1},
MATHEMATICA
<< DiscreteMath`Combinatorica`
a = Table[Table[Eulerian[n + 1, 2*m], {m, 0, Floor[n/2]}], {n, 0, 20, 2}];
Flatten[%]
CROSSREFS
Cf. A008292.
Sequence in context: A059755 A215657 A157631 * A271711 A138843 A033386
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, Dec 13 2010
STATUS
approved