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
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 0..596
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
Comments