A108035 - OEIS

%I #14 Sep 24 2020 20:13:26

%S 1,2,2,3,3,3,5,5,5,5,8,8,8,8,8,13,13,13,13,13,13,21,21,21,21,21,21,21,

%T 34,34,34,34,34,34,34,34,55,55,55,55,55,55,55,55,55,89,89,89,89,89,89,

%U 89,89,89,89,144,144,144,144,144,144,144,144,144,144,144,233,233,233,233,233,233,233,233,233,233,233,233

%N Triangle read by rows: n-th row is n-th nonzero Fibonacci number repeated n times.

%H Reinhard Zumkeller, <a href="/A108035/b108035.txt">Rows n = 1..120 of triangle, flattened</a>

%F G.f.: (1+x+y)/((1-x-x^2)*(1-y-y^2)). [U coordinates]

%e 1; 2,2; 3,3,3; 5,5,5,5; 8,8,8,8,8; ...

%t Flatten[Table[Table[Fibonacci[n],{n-1}],{n,13}]] (* _Harvey P. Dale_, Jul 18 2015 *)

%o (Haskell)

%o a108035 n k = a108035_tabl !! (n-1) !! (n-1)

%o a108035_row n = a108035_tabl !! (n-1)

%o a108035_tabl = zipWith replicate [1..] $ drop 2 a000045_list

%o -- _Reinhard Zumkeller_, Oct 07 2012

%Y Cf. A000045, A039913, A108036, A108037.

%Y Cf. A023607 (row sums).

%K nonn,tabl

%O 1,2

%A _N. J. A. Sloane_, Jun 01 2005