A186425 Antidiagonal sums of A179748.
1, 1, 2, 2, 3, 4, 5, 7, 10, 14, 20, 30, 45, 68, 104, 161, 251, 393, 618, 976, 1547, 2459, 3917, 6251, 9993, 15999, 25647, 41157, 66108, 106272, 170961, 275202, 443250, 714265, 1151486, 1857057, 2995991, 4834907, 7804653, 12601553, 20351114, 32872743, 53107823, 85811996, 138674777, 224130364, 362286475
Offset: 1
Keywords
Links
- Mats Granvik, Does this ratio converge to the Golden ratio?
Programs
-
Mathematica
Clear[a,t]; nn = 58; t[n_, 1] = 1; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}], 0]; a = Table[Total[Table[t[n - k + 1, k], {k, 1, nn}]], {n, 1, nn}]; a (* Mats Granvik, Apr 27 2013 *)
Comments