|
|
A265022
|
|
Row sums of the Bell transform of the complementary Bell numbers (A264435).
|
|
0
|
|
|
1, 1, 0, -2, -1, 12, 20, -113, -430, 1278, 10821, -10234, -317048, -384915, 10352420, 42836466, -340348905, -3180089128, 8045616512, 219303897655, 301713947470, -14401913182942, -84197219028827, 824481606288554, 11426928115546036, -23133559937561187
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Sum[BellY[n, k, BellB[Range[n] - 1, -1]], {k, 0, n}], {n, 0, 30}] (* Vladimir Reshetnikov, Nov 09 2016 *)
|
|
PROG
|
(Sage) # uses[bell_transform from A264428]
uno = [1]*len
complementary_bell_numbers = [sum((-1)^n*b for (n, b) in enumerate (bell_transform(n, uno))) for n in range(len)]
return [sum(bell_transform(n, complementary_bell_numbers)) for n in range(len)]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|