[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
A173513
a(n) = ceiling(A173510(n)/2).
0
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
OFFSET
0,3
FORMULA
a(n) = A173510(n) - floor(A173510(n)/2).
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}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 23 2010
STATUS
approved