A037158
Convolution of natural numbers n >= 1 with Fibonacci numbers F(k), for k >= -7, with F(-n)=(-1)^(n+1)*F(n).
Original entry on oeis.org
13, 18, 28, 35, 44, 52, 61, 70, 80, 91, 104, 120, 141, 170, 212, 275, 372, 524, 765, 1150, 1768, 2763, 4368, 6960, 11149, 17922, 28876, 46595, 75260, 121636, 196669, 318070, 514496, 832315, 1346552, 2178600, 3524877, 5703194, 9227780, 14930675
Offset: 0
A137773
Triangular sequence: The Fibonacci sequence on the diagonal, 1's at all other places.
Original entry on oeis.org
0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 13, 1, 1, 1, 1, 1, 1, 1, 1, 21, 1, 1, 1, 1, 1, 1, 1, 1, 1, 34, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 55
Offset: 1
0;
1, 1;
1, 1, 1;
1, 1, 1, 2;
1, 1, 1, 1, 3;
1, 1, 1, 1, 1, 5;
1, 1, 1, 1, 1, 1, 8;
1, 1, 1, 1, 1, 1, 1, 13;
1, 1, 1, 1, 1, 1, 1, 1, 21;
1, 1, 1, 1, 1, 1, 1, 1, 1, 34;
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 55;
-
Table[Table[If[n == m, Fibonacci[n], 1], {n, 0, m}], {m, 0, 10}]; Flatten[%] Table[Apply[Plus, Table[If[n == m, Fibonacci[n], 1], {n, 0, m}]], {m, 0, 10}];