A360229 Row sums of triangle A360173.

0, 1, 3, 6, 16, 36, 73, 156, 324, 677, 1405, 2864, 5906, 12058, 24548, 49928, 101434, 206173, 417141, 844256, 1707622, 3452998, 6970196, 14058528, 28368774, 57197983, 115239846, 232020596, 467296470, 940684267, 1892396396, 3805806218, 7654402454, 15391563411

Offset

0,3

Links

Alois P. Heinz, Table of n, a(n) for n = 0..800

Maple

b:= proc(n) option remember; `if`(n=0, 1, (p->
       add((t-> `if`(i<n, 0, t*x^(i-n))+t*x^(i+n))(
      coeff(p, x, i)), i=0..degree(p)))(b(n-1)))
    end:
a:= proc(n) option remember; (p->
      add(i*coeff(p, x, i), i=0..degree(p)))(b(n))
    end:
seq(a(n), n=0..35);  # Alois P. Heinz, Jan 30 2023

Mathematica

b[n_] := b[n] = If[n == 0, 1, Function[p, Sum[Function[t, If[i<n, 0, t*x^(i-n)]+t*x^(i+n)][Coefficient[p, x, i]], {i, 0, Exponent[p, x]}]][b[n-1]]];
a[n_] := a[n] = Function[p, Sum[i*Coefficient[p, x, i], {i, 0, Exponent[p, x]}]][b[n]];
Table[a[n], {n, 0, 35}] (* Jean-François Alcover, Apr 24 2025, after Alois P. Heinz *)

Crossrefs

Cf. A141001, A141002, A360173.

Sequence in context: A130095 A293993 A072824 * A375726 A369432 A089406

Adjacent sequences: A360226 A360227 A360228 * A360230 A360231 A360232

Keyword

nonn

Author

John Tyler Rascoe, Jan 30 2023

Status

approved