|
%I #28 Aug 31 2021 04:22:23
%S 1,1,1,1,66,1,1,1191,1191,1,1,14608,156190,14608,1,1,152637,9738114,
%T 9738114,152637,1,1,1479726,423281535,2275172004,423281535,1479726,1,
%U 1,13824739,15041229521,311387598411
%N Sub-triangle of A008292: take every second term of every second row.
%H Claire Levaillant, <a href="https://arxiv.org/abs/2001.03471">Powers of two weighted sum of the first p divided Bernoulli numbers modulo p</a>, arXiv:2001.03471 [math.CO], 2020. See p. 6.
%e {1},
%e {1, 1},
%e {1, 66, 1},
%e {1, 1191, 1191, 1},
%e {1, 14608, 156190, 14608, 1},
%e {1, 152637, 9738114, 9738114, 152637, 1},
%t << DiscreteMath`Combinatorica`
%t a = Table[Table[Eulerian[n + 1, 2*m], {m, 0, Floor[n/2]}], {n, 0, 20, 2}];
%t Flatten[%]
%Y Cf. A008292.
%K nonn,tabl
%O 0,5
%A _Roger L. Bagula_, Dec 13 2010
|
