A059503 The array in A059502 read by antidiagonals in 'up' direction.
1, 2, 3, 3, 5, 9, 4, 7, 14, 27, 5, 9, 19, 40, 80, 6, 11, 24, 53, 114, 234, 7, 13, 29, 66, 148, 323, 677, 8, 15, 34, 79, 182, 412, 910, 1941, 9, 17, 39, 92, 216, 501, 1143, 2551, 5523, 10, 19, 44, 105, 250, 590, 1376, 3161, 7120, 15615, 11, 21, 49, 118
Offset: 0
Examples
The array begins 1 3 9 27 80 ... 2 5 14 40 ... 3 7 19 ... 4 9 5 ...
Links
Crossrefs
Programs
-
Mathematica
T[n_, k_] := ((3 - k)*Fibonacci[2*k] + (5*n + 3*k)*Fibonacci[2*k - 1])/5; TableForm[Table[T[n, k], {n, 0, 5}, {k, 1, 5}]] Table[T[n - k, k + 1], {n, 0, 10}, {k, 0, n}]//Flatten (* G. C. Greubel, Sep 10 2017 *)
Formula
T(n,k) = ((3 - k)*Fibonacci(2*k) + (5*n + 3*k)*Fibonacci(2*k - 1))/5. - G. C. Greubel, Sep 10 2017