The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A304980 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A304980

a(n) = 4^n * (1 - 4^n) * Bernoulli(2*n) / (2*n) + EulerE(2*n).
(history; published version)

#13 by Bruno Berselli at Mon Jun 25 03:52:06 EDT 2018

STATUS

reviewed

approved

#12 by Michel Marcus at Sun Jun 24 04:15:00 EDT 2018

STATUS

proposed

reviewed

#11 by Daniel Suteu at Sat Jun 23 12:05:19 EDT 2018

STATUS

editing

proposed

#10 by Daniel Suteu at Sat Jun 23 12:04:29 EDT 2018

FORMULA

a(n) = (-1)^n * (A000182(n) + A000364(n)).

CROSSREFS

Cf. A000182 (tangent numbers), A000364 (secant numbers).

STATUS

proposed

editing

#9 by Michel Marcus at Wed May 30 08:32:28 EDT 2018

STATUS

editing

proposed

#8 by Michel Marcus at Wed May 30 08:31:29 EDT 2018

PROG

(PARI) a(n) = 4^n * (1 - 4^n) * bernfrac(2*n) / (2*n) + 2*imag(polylog(-2*n, I)); \\ Michel Marcus, May 30 2018

STATUS

proposed

editing

#7 by Michael De Vlieger at Thu May 24 15:36:17 EDT 2018

STATUS

editing

proposed

#6 by Michael De Vlieger at Thu May 24 15:36:15 EDT 2018

MATHEMATICA

Array[4^#*(1 - 4^#) BernoulliB[2 #]/(2 #) + EulerE[2 #] &, 16] (* Michael De Vlieger, May 24 2018 *)

STATUS

proposed

editing

#5 by Jon E. Schoenfield at Wed May 23 00:26:12 EDT 2018

STATUS

editing

proposed

#4 by Jon E. Schoenfield at Wed May 23 00:26:02 EDT 2018

NAME

a(n) = 4^n * (1 - 4^n) * bernoulliBernoulli(2*n) / (2*n) + EulerE(2*n).

STATUS

proposed

editing