login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A306836 Expansion of e.g.f. (sec(x) + tan(x))*exp(x)*BesselI(1,2*x)/x. 0
1, 2, 5, 15, 50, 187, 779, 3626, 18830, 108737, 694156, 4865168, 37175028, 307674135, 2742199399, 26185972811, 266727515558, 2886665421697, 33078737906112, 400112950565602, 5094396150412628, 68107059089489867, 953882607872927724, 13966992152276252633, 213399920723596392052 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
COMMENTS
Boustrophedon transform of Motzkin numbers (A001006).
LINKS
MATHEMATICA
nmax = 24; CoefficientList[Series[(Sec[x] + Tan[x]) Exp[x] BesselI[1, 2 x]/x, {x, 0, nmax}], x] Range[0, nmax]!
t[n_, 0] := Hypergeometric2F1[(1 - n)/2, -n/2, 2, 4]; t[n_, k_] := t[n, k] = t[n, k - 1] + t[n - 1, n - k]; a[n_] := t[n, n]; Array[a, 25, 0]
PROG
(Python)
from itertools import accumulate, count, islice
def A306836_gen(): # generator of terms
blist, a, b = (1, ), 1, 1
yield from blist
for i in count(2):
yield (blist := tuple(accumulate(reversed(blist), initial=b)))[-1]
a, b = b, (b*(2*i+1)+(3*i-3)*a)//(i+2)
A306836_list = list(islice(A306836_gen(), 40)) # Chai Wah Wu, Jun 12 2022
CROSSREFS
Sequence in context: A107590 A245311 A148367 * A192634 A350490 A304386
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 16 2019
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 02:16 EDT 2024. Contains 371264 sequences. (Running on oeis4.)