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,5

Links

Table of n, a(n) for n=0..31.

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.

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

Adjacent sequences: A085500 A085501 A085502 * A085504 A085505 A085506

Keyword

nonn,tabl

Author

Roger L. Bagula, Dec 13 2010

Status

approved