Triangle read by rows: row n gives coefficients of expansion of polynomial p(k,n) in powers of k, defined by p(k, 0) = 1, p(k, 1) = 1+2*k; for n>1, p(k,n) = If[Mod[n, 2] == 0, (1 + 2*k)*p(k, n - 1) + n*Binomial[n + 1, n - 1]*k*(k + 1)*p(k, n - 2), (1 + 2*k)*(1 + 3*(p(k, n - 1) - 1))].
A167883
Triangle read by rows: row n gives coefficients of expansion of polynomial p(k,n) in powers of k, defined by p(k, 0) = 1, p(k, 1) = 1+2*k; for n>1, p(k,n) = If[Mod[n, 2] == 0, (1 + 2*k)*p(k, n - 1) + n*Binomial[n + 1, n - 1]*k*(k + 1)*p(k, n - 2), (1 + 2*k)*(1 + 3*(p(k, n - 1) - 1))].
Terms
- a(0) =1a(1) =1a(2) =2a(3) =1a(4) =10a(5) =10a(6) =1a(7) =32a(8) =90a(9) =60a(10) =1a(11) =74a(12) =594a(13) =1040a(14) =520a(15) =1a(16) =224a(17) =2226a(18) =6684a(19) =7800a(20) =3120a(21) =1a(22) =352a(23) =12124a(24) =95304a(25) =227052a(26) =215280a(27) =71760a(28) =1a(29) =1058
External references
- oeis: A167883