A173696 a(n) = ceiling(A117791(n)/2).

1, 1, 1, 2, 2, 3, 5, 7, 10, 15, 23, 34, 51, 77, 115, 173, 259, 389, 584, 877, 1317, 1978, 2970, 4459, 6696, 10054, 15097, 22670, 34041, 51115, 76754, 115254, 173064, 259872, 390223, 585956, 879869, 1321206, 1983916, 2979038, 4473308, 6717096, 10086357, 15145621, 22742585, 34150148, 51279684, 77001307

Offset: 0

Author

Roger L. Bagula, Nov 25 2010

Keywords

• nonn
• easy
• less

Links

• G. C. Greubel, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A117791.

Programs

Mathematica

Ceiling[CoefficientList[Series[1/(1 - x - x^2 + x^4 - x^6), {x, 0, 50}], x]/2] (* G. C. Greubel, Nov 16 2016 *)

Formula

a(n) = A117791(n) - floor(A117791(n)/2) = ceiling(A117791(n)/2).

Extensions

Erroneous leading zeros deleted by Joerg Arndt, Nov 17 2016

Sequence values corrected by G. C. Greubel, Nov 19 2016