OFFSET
0,4
COMMENTS
The fractions are g(n)=0, 0, 1, 3/2, 3/2, 5/4, 5/4, 7/4, 7/4, -3/8, -3/8, 121/8, 121/8, -1261/8, -1261/8, 20583/8, 20583/8, -888403/16, -888403/16,... . The denominators are 1, 1, followed by A053644(n+1).
The corresponding fractions to g(n) are f(n) in A165142(n).
g(n) differences table:
0, 0, 1, 3/2, 3/2, 5/4,
0, 1, 1/2, 0, -1/4, 0,
1, -1/2, -1/2, -1/4, 1/4, 1/2, Euler twin numbers (new),
-3/2, 0, 1/4, 1/2, 1/4, -1,
3/2, 1/4, 1/4, -1/4, -5/4, -5/8,
-5/4, 0, -1/2, -1, 5/8, 13/2, etc.
If we proceed, here for Euler polynomials, like in A233565 for Bernoulli polynomials, we obtain
FORMULA
a(n) = 0, 0, followed by (-1)^n *A141424(n).
MATHEMATICA
max = 27; p[0] = 1; p[n_] := (1 + x)*((1 + x)^(n - 1) + x^(n - 1))/2; t = Table[Coefficient[p[n], x, k], {n, 0, max + 2}, {k, 0, max + 2}]; a[n_] := (-1)^n*Inverse[t][[n, 2]] // Numerator; a[0] = 0; Table[a[n], {n, 0, max}] (* Jean-François Alcover, Jan 11 2016 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Paul Curtz, Dec 16 2013
STATUS
approved