A085503 Sub-triangle of A008292: take every second term of every second row.

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

Author

Roger L. Bagula, Dec 13 2010

Keywords

• nonn
• tabl

Examples

			{1},
{1, 1},
{1, 66, 1},
{1, 1191, 1191, 1},
{1, 14608, 156190, 14608, 1},
{1, 152637, 9738114, 9738114, 152637, 1},
		

Links

• Claire Levaillant, Powers of two weighted sum of the first p divided Bernoulli numbers modulo p, arXiv:2001.03471 [math.CO], 2020. See p. 6.

Crossrefs

Cf. A008292.

Programs

Mathematica

<< DiscreteMath`Combinatorica`
a = Table[Table[Eulerian[n + 1, 2*m], {m, 0, Floor[n/2]}], {n, 0, 20, 2}];
Flatten[%]