login
A173508
a(n) = ceiling(A173497(n)/2).
2
1, 1, 1, 2, 2, 3, 4, 6, 8, 11, 15, 20, 28, 38, 52, 71, 97, 132, 181, 247, 337, 461, 629, 860, 1174, 1604, 2191, 2993, 4089, 5585, 7630, 10422, 14237, 19448, 26567, 36291, 49574, 67720, 92507, 126367, 172620, 235804, 322114
OFFSET
0,4
MAPLE
A173497 := proc(n) option remember; if n <= 1 then op(n+1, [2, 1]) ; else procname(n-1)+procname(n-2)-floor(procname(n-2)/2) ; end if; end proc:
A173508 := proc(n) ceil(A173497(n)/2) ; end proc:
seq(A173508(n), n=0..60) ;
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 23 2010
EXTENSIONS
Definition corrected, Mma code related to another sequence removed, sequence extended
STATUS
approved