A131410 A127647 * A000012.

1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 5, 5, 5, 5, 5, 8, 8, 8, 8, 8, 8, 13, 13, 13, 13, 13, 13, 13, 21, 21, 21, 21, 21, 21, 21, 21, 34, 34, 34, 34, 34, 34, 34, 34, 34, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, 144, 144, 144

Offset: 1

Author

Gary W. Adamson, Jul 08 2007

Keywords

• nonn
• tabl

Comments

Row sums = A045925, n*Fib(n): (1, 2, 6, 12, 25, 48,...).

A104763 = A000012 * A127647.

Examples

			First few rows of the triangle are:
1;
1, 1;
2, 2, 2;
3, 3, 3, 3;
5, 5, 5, 5, 5;
8, 8, 8, 8, 8, 8;
...
		

Links

• Reinhard Zumkeller, Rows n = 1..120 of triangle, flattened

Crossrefs

Cf. A127647, A045925, A104763, A000045.

Programs

Haskell

a131410 n k = a131410_tabl !! (n-1) !! (n-1)
a131410_row n = a131410_tabl !! (n-1)
a131410_tabl = zipWith replicate [1..] $ tail a000045_list
-- Reinhard Zumkeller, Oct 07 2012

Mathematica

Table[Fibonacci[n], {n, 15}, {n}] // Flatten (* Vincenzo Librandi, Jan 28 2017 *)

Formula

A127647 * A000012 as infinite lower triangular matrices.

Partial sums of A127647 starting from the right, read by rows.

By rows, F(n) occurs n times.