%I #19 Jun 11 2022 20:05:46
%S 1,2,6,29,196,1721,18622,239427,3563880,60247537,1139848346,
%T 23857033243,547234058732,13650416199369,367871731383990,
%U 10651249531927427,329733427896399952,10868107639700229857,379980639501713082034,14046060369812427842859,547335961798415004947220
%N Expansion of e.g.f. (sec(x) + tan(x))/sqrt(1 - 2*x).
%C Boustrophedon transform of A001147.
%H Robert Israel, <a href="/A296792/b296792.txt">Table of n, a(n) for n = 0..403</a>
%H J. Millar, N. J. A. Sloane and N. E. Young, A new operation on sequences: the Boustrophedon transform, J. Combin. Theory, 17A (1996), 44-54 (<a href="http://neilsloane.com/doc/bous.txt">Abstract</a>, <a href="http://neilsloane.com/doc/bous.pdf">pdf</a>, <a href="http://neilsloane.com/doc/bous.ps">ps</a>)
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%H <a href="/index/Bo#boustrophedon">Index entries for sequences related to boustrophedon transform</a>
%H <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>
%F a(n) ~ (sec(1/2) + tan(1/2)) * 2^(n + 1/2) * n^n / exp(n). - _Vaclav Kotesovec_, Dec 21 2017
%p S:= series((sec(x)+tan(x))/sqrt(1-2*x), x, 51):
%p seq(coeff(S,x,n)*n!,n=0..50); # _Robert Israel_, Dec 21 2017
%t nmax = 20; CoefficientList[Series[(Sec[x] + Tan[x])/Sqrt[1 - 2 x], {x, 0, nmax}], x] Range[0, nmax]!
%o (PARI) first(n) = x='x+O('x^n); Vec(serlaplace((1/cos(x) + tan(x))/sqrt(1-2*x))) \\ _Iain Fox_, Dec 21 2017
%o (Python)
%o from itertools import accumulate, count, islice
%o def A296792_gen(): # generator of terms
%o blist, m = tuple(), 1
%o for i in count(1,2):
%o yield (blist := tuple(accumulate(reversed(blist),initial=m)))[-1]
%o m *= i
%o A296792_list = list(islice(A296792_gen(),30)) # _Chai Wah Wu_, Jun 11 2022
%Y Cf. A000111, A000754, A001147, A230960, A230961.
%K nonn
%O 0,2
%A _Ilya Gutkovskiy_, Dec 20 2017