A275871 Row sums and second diagonal of A046934.
1, 1, 4, 15, 61, 272, 1317, 6865, 38278, 227093, 1426921, 9457918, 65898275, 481177881, 3672102116, 29218285875, 241873478425, 2079079678176, 18524191138689, 170803860905237, 1627465240969382
Offset: 0
Crossrefs
Programs
-
Mathematica
Clear[d]; d[0] = 1; d[1] = 0; d[n_] := d[n] = 1 + Sum[Binomial[n - 1, j]*d[j], {j, 2, n - 1}]; Table[ d[n + 2] - d[n + 1], {n, 0, 22}] (* From the code by J.-F. Alcover and Jon Perry in A032347 *)
Comments