login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A193472 Numerator of ez(n-1)*n!/(4^n-2^n) where ez(n) is the n-th coefficient of sec(t)+tan(t) for n>0, a(0) = 1. 2

%I

%S 1,1,1,3,1,25,1,427,1,12465,5,555731,691,35135945,7,2990414715,3617,

%T 329655706465,43867,45692713833379,174611,1111113564712575,854513,

%U 1595024111042171723,236364091,387863354088927172625,8553103,110350957750914345093747,23749461029

%N Numerator of ez(n-1)*n!/(4^n-2^n) where ez(n) is the n-th coefficient of sec(t)+tan(t) for n>0, a(0) = 1.

%H Peter Luschny, <a href="http://oeis.org/wiki/User:Peter_Luschny/TheLostBernoulliNumbers">The lost Bernoulli numbers.</a>

%p gf := (f,n) -> coeff(series(f(x),x,n+1),x,n):

%p BG := n ->`if`(n=0,1,gf(sec+tan,n-1)*n!/(4^n-2^n)):

%p A193472 := n -> numer(BG(n)): seq(A193472(n),n=0..28);

%t ez[n_] := SeriesCoefficient[Sec[t] + Tan[t], {t, 0, n}];

%t a[0] = 1; a[n_] := Numerator[ez[n-1] n!/(4^n - 2^n)];

%t Table[a[n], {n, 0, 28}] (* _Jean-Fran├žois Alcover_, Jun 24 2019 *)

%Y Cf. A000367, A002445, A009843, A193475, A193473.

%K nonn,frac

%O 0,4

%A _Peter Luschny_, Aug 07 2011

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 21 18:38 EDT 2019. Contains 326168 sequences. (Running on oeis4.)