A361476 Antidiagonal sums of A361475.

0, 1, 4, 12, 34, 99, 308, 1040, 3820, 15197, 65060, 297828, 1449742, 7468527, 40555732, 231335944, 1381989864, 8623700793, 56078446596, 379233142780, 2662013133274, 19362917621979, 145719550012276, 1133023004941248, 9090156910550084, 75161929739797493, 639793220877941476

Offset: 0

Author

Stefano Spezia, Mar 13 2023

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 0..596

Crossrefs

Cf. A026898, A104878, A361475.

Programs

Maple

f:= proc(n) local k;
add( (k^(n-k+2) - 1)/(k - 1),k=2..n+2)
end proc:
map(f, [$0..30]); # Robert Israel, Nov 12 2024

Mathematica

A361475[n_,k_]:=(k^n-1)/(k-1); a[n_]:=Sum[A361475[n-k+2,k],{k,2,n+2}]; Array[a,27,0]

Formula

a(n) = Sum_{k=2..n+2} (k^(n-k+2) - 1)/(k - 1).

a(n) ~ A026898(n).

a(n) = Sum_{k=0..n} k * A104878(n,k). - Alois P. Heinz, Dec 05 2023