cp's OEIS Frontend

A159346 Triangle read by rows: every third term of every third row of A008292.

%I A159346 #23 Feb 05 2025 00:34:19
%S A159346 1,1,1,1,2416,1,1,455192,455192,1,1,45533450,2275172004,45533450,1,1,
%T A159346 3572085255,3207483178157,3207483178157,3572085255,1,1,251732291184,
%U A159346 2527925001876036,37307713155613000,2527925001876036,251732291184,1,1,16871482830550,1454842842001939656
%N A159346 Triangle read by rows: every third term of every third row of A008292.
%H A159346 G. C. Greubel, <a href="/A159346/b159346.txt">Rows n = 0..100 of triangle, flattened</a>
%F A159346 T(n, k) = A008292(3*n+1, 3*k+1). - _Jason Yuen_, Feb 04 2025
%e A159346 Triangle begins:
%e A159346   {1},
%e A159346   {1, 1},
%e A159346   {1, 2416, 1},
%e A159346   {1, 455192, 455192, 1},
%e A159346   {1, 45533450, 2275172004, 45533450, 1},
%e A159346   {1, 3572085255, 3207483178157, 3207483178157, 3572085255, 1},
%e A159346   ...
%t A159346 << DiscreteMath`Combinatorica`
%t A159346 k = 3;
%t A159346 a = Table[Table[Eulerian[n + 1, k*m], {m, 0, Floor[n/k]}], {n, 0, 10*k,k}];
%t A159346 Flatten[%]
%Y A159346 Cf. A008292, A085503.
%K A159346 nonn,tabl
%O A159346 0,5
%A A159346 _Roger L. Bagula_, Dec 13 2010
%E A159346 Edited by _N. J. A. Sloane_, Jan 01 2011