A326481
a(n) = E2_{n}(0) with E2_{n} the polynomials defined in A326480.
Original entry on oeis.org
1, -2, 2, 4, -16, -32, 272, 544, -7936, -15872, 353792, 707584, -22368256, -44736512, 1903757312, 3807514624, -209865342976, -419730685952, 29088885112832, 58177770225664, -4951498053124096, -9902996106248192, 1015423886506852352
Offset: 0
A240980
Numerators of f(n) with 2*f(n+1) = f(n) + A198631(n)/A006519(n+1), f(0)=0.
Original entry on oeis.org
0, 1, 1, 1, 0, 0, 1, 1, -1, -1, 15, 15, -169, -169, 10753, 10753, -28713, -28713, 1586789, 1586789, -27542974, -13771487, 4694573547, 4694573547, -60230569205, -60230569205, 7328718272473, 7328718272473, -1043166080490099, -1043166080490099, 343459524172314625, 343459524172314625
Offset: 0
2*f(1) = 0 + 1, f(1) = 1/2;
2*f(2) = 1/2 + 1/2, f(2) = 1/2;
2*f(3) = 1/2 + 0, f(3) = 1/4.
-
Clear[f]; f[0] = 0; f[1] = 1/2; f[n_] := f[n] = (1/2)*(EulerE[n-1, 1]/2^IntegerExponent[n-1, 2] + f[n-1]); Table[f[n] // Numerator, {n, 0, 31}] (* Jean-François Alcover, Aug 06 2014 *)
Showing 1-2 of 2 results.
Comments