Svoboda | Graniru | BBC Russia | Golosameriki | Facebook
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!)
A000764 Boustrophedon transform of Bell numbers. 3
1, 2, 5, 16, 60, 258, 1247, 6686, 39371, 252688, 1756920, 13168178, 105949517, 911834394, 8367625793, 81642384468, 844718036940, 9245285569526, 106790005796627, 1298920385093126, 16602066548692623 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
LINKS
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 (Abstract, pdf, ps).
N. J. A. Sloane, Transforms.
FORMULA
E.g.f.: (tan(x) + sec(x))*exp(exp(x) - 1).
EXAMPLE
The array begins:
1
1 -> 2
5 <- 4 <- 2
5 -> 10 -> 14 -> 16
60 <- 55 <- 45 <- 31 <- 15
- John Cerkan, Feb 02 2017
MATHEMATICA
t[n_, 0] := BellB[n]; t[n_, k_] := t[n, k] = t[n, k - 1] + t[n - 1, n - k]; a[n_] := t[n, n]; Array[a, 30, 0] (* Jean-François Alcover, Feb 12 2016 *)
PROG
(Python)
from itertools import accumulate, islice
def A000764_gen(): # generator of terms
blist, alist = (1, 2), (1, )
yield from blist
while True:
yield (blist := tuple(accumulate(reversed(blist), initial=(alist := list(accumulate(alist, initial=alist[-1])))[-1])))[-1]
A000764_list = list(islice(A000764_gen(), 40)) # Chai Wah Wu, Jun 12 2022
CROSSREFS
Cf. A000110.
Sequence in context: A352617 A332930 A374543 * A205486 A210668 A279564
KEYWORD
nonn
AUTHOR
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 September 11 05:49 EDT 2024. Contains 375814 sequences. (Running on oeis4.)