A173508 a(n) = ceiling(A173497(n)/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

Author

Roger L. Bagula, Nov 23 2010

Keywords

• nonn

Crossrefs

Cf. A000032, A064323, A173497.

Programs

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) ;

Extensions

Definition corrected, Mma code related to another sequence removed, sequence extended