A173513 a(n) = ceiling(A173510(n)/2).
1, 1, 2, 2, 3, 3, 4, 5, 7, 9, 11, 14, 18, 23, 30, 38, 49, 63, 80, 103, 132, 169, 216, 277, 355, 454, 582, 745, 954, 1222, 1565, 2005, 2568, 3289, 4212, 5395, 6910, 8850, 11335, 14517, 18593, 23814, 30500, 39064, 50032, 64080, 82072, 105116, 134630, 172431, 220846
Offset: 0
Keywords
Programs
-
Mathematica
l[0] = 2; l[1] = 1; l[n_] := l[n] = l[n - 1] + l[n - 2] - Floor[l[n - 1]/2] Table[l[n] - Floor[l[n]/2], {n, 0, 30}]
Extensions
More terms from Amiram Eldar, Jul 05 2025