%I #14 Mar 29 2020 20:20:57
%S 1,1,16,1,16,81,1,16,81,256,1,16,81,256,625,1,16,81,256,625,1296,1,16,
%T 81,256,625,1296,2401,1,16,81,256,625,1296,2401,4096,1,16,81,256,625,
%U 1296,2401,4096,6561,1,16,81,256,625,1296,2401,4096,6561,10000
%N Triangle whose rows are sequences of increasing fourth powers: 1; 1,16; 1,16,81; ... .
%C Reading the triangle by rows produces the sequence 1,1,16,1,16,81,1,16,81,256,..., analogous to A002260.
%H Reinhard Zumkeller, <a href="/A133821/b133821.txt">Rows n = 1..120 of triangle, flattened</a>
%F O.g.f.: (1+11qx+11q^2x^2+q^3x^3)/((1-x)(1-qx)^5) = 1 + x(1 + 16q) + x^2(1 + 16q + 81q^2) + ... . Cf. 4th row of A008292.
%e Triangle starts
%e 1;
%e 1, 16;
%e 1, 16; 81;
%e 1, 16, 81, 256;
%e 1, 16, 81, 256, 625;
%t Module[{nn=10,fp},fp=Range[(nn(nn+1))/2]^4;Table[TakeList[fp,{n}],{n,nn}]]//Flatten (* Requires Mathematica version 11 or later *) (* _Harvey P. Dale_, Mar 29 2020 *)
%o (Haskell)
%o a133821 n k = a133821_tabl !! (n-1) !! (k-1)
%o a133821_row n = a133821_tabl !! (n-1)
%o a133821_tabl = map (`take` (tail a000583_list)) [1..]
%o -- _Reinhard Zumkeller_, Nov 11 2012
%Y Cf. A000538 (row sums), A002260, A133819, A133820, A133824.
%K easy,nonn,tabl
%O 1,3
%A _Peter Bala_, Sep 25 2007
%E Offset changed by _Reinhard Zumkeller_, Nov 11 2012