OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (0,1,1,0,-1).
MAPLE
seq(1+floor(n/2)-floor(n/3), n = 0..90); # G. C. Greubel, Nov 09 2019
MATHEMATICA
Rest[CoefficientList[Series[x(1+2x-x^3-x^4)/((1-x^2)(1-x^3)), {x, 0, 90}], x]] (* Harvey P. Dale, Apr 22 2011 *)
Table[1 + Floor[n/2] - Floor[n/3], {n, 90}] (* G. C. Greubel, Nov 09 2019 *)
PROG
(PARI) a(n)=if(n<1, 0, 1+(n\2)-(n\3))
(Magma) [1+Floor(n/2)-Floor(n/3): n in [1..90]]; // G. C. Greubel, Nov 09 2019
(Sage) [1+floor(n/2)-floor(n/3) for n in (1..40)] # G. C. Greubel, Nov 09 2019
(GAP) List([1..90], n-> 1+Int(n/2)-Int(n/3) ); # G. C. Greubel, Nov 09 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved