[go: up one dir, main page]

login
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
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
STATUS
approved