OFFSET
0,8
LINKS
Peter Luschny, The Bell transform
EXAMPLE
Triangle starts:
[1]
[0, 1]
[0, 1, 1]
[0, 2, 3, 1]
[0, 6, 11, 6, 1]
[0, 23, 50, 35, 10, 1]
[0, 106, 268, 225, 85, 15, 1]
[0, 568, 1645, 1603, 735, 175, 21, 1]
[0, 3459, 11348, 12572, 6713, 1960, 322, 28, 1]
MATHEMATICA
nmax = 10;
A187761[n_] := Sum[BellY[n, k, BellB /@ Range[0, n-1]], {k, 0, n}];
Table[BellY[n, k, A187761 /@ Range[0, nmax]], {n, 0, nmax}, {k, 0, n}] // Flatten (* Jean-François Alcover, Jul 10 2019 *)
PROG
(Sage) # uses[bell_transform from A264428]
def A264430_triangle(dim):
uno = [1]*dim
bell_numbers = [sum(bell_transform(n, uno)) for n in range(dim)]
bell_number_2 = [sum(bell_transform(n, bell_numbers)) for n in range(dim)]
for n in range(dim): print(bell_transform(n, bell_number_2))
A264430_triangle(10)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Nov 13 2015
STATUS
approved