A240134 Numerator of (n-1) * ceiling(n/2) / n.

0, 1, 4, 3, 12, 5, 24, 7, 40, 9, 60, 11, 84, 13, 112, 15, 144, 17, 180, 19, 220, 21, 264, 23, 312, 25, 364, 27, 420, 29, 480, 31, 544, 33, 612, 35, 684, 37, 760, 39, 840, 41, 924, 43, 1012, 45, 1104, 47, 1200, 49, 1300, 51, 1404, 53, 1512, 55, 1624, 57, 1740, 59, 1860, 61, 1984, 63, 2112, 65

Offset

1,3

Comments

A046092 Union A005408.

Links

Table of n, a(n) for n=1..66.

Index entries for linear recurrences with constant coefficients, signature (0,3,0,-3,0,1).

Formula

a(2n) = 2n-1. a(2n-1) = 2n(n-1).

a(n) = 3*a(n-2)-3*a(n-4)+a(n-6). G.f.: x^2*(x^4-4*x-1) / ((x-1)^3*(x+1)^3). - Colin Barker, Apr 02 2014

a(n) = n - 1 + (2*floor((n+2)/2)^2 - 2*floor((n+2)/2) - n + 1) * (n mod 2). - Wesley Ivan Hurt, Apr 02 2014

a(n) = (n-1)*(n+3-(n-1)*(-1)^n)/4. - Wesley Ivan Hurt, Dec 05 2023

Maple

A240134:=n->numer( (n-1)*ceil(n/2) / n ); seq(A240134(n), n=1..100);

Mathematica

Table[Numerator[(n - 1) Ceiling[n/2] / n], {n, 100}]

Prog

(PARI) concat(0, Vec(x^2*(x^4-4*x-1)/((x-1)^3*(x+1)^3) + O(x^100))) \\ Colin Barker, Apr 02 2014
(Magma) [(n-1)*(n+3-(n-1)*(-1)^n)/4 : n in [1..80]]; // Wesley Ivan Hurt, Dec 05 2023

Crossrefs

Bisections: A046092 and A005408.

Sequence in context: A121844 A091512 A106285 * A193800 A061727 A327916

Adjacent sequences: A240131 A240132 A240133 * A240135 A240136 A240137

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Apr 02 2014

Status

approved