A318776 Triangle read by rows: T(0,0) = 1; T(n,k) = 2*T(n-1,k) + T(n-5,k-1) for k = 0..floor(n/5); T(n,k)=0 for n or k < 0.
1, 2, 4, 8, 16, 32, 1, 64, 4, 128, 12, 256, 32, 512, 80, 1024, 192, 1, 2048, 448, 6, 4096, 1024, 24, 8192, 2304, 80, 16384, 5120, 240, 32768, 11264, 672, 1, 65536, 24576, 1792, 8, 131072, 53248, 4608, 40, 262144, 114688, 11520, 160, 524288, 245760, 28160, 560, 1048576, 524288, 67584, 1792, 1, 2097152, 1114112, 159744, 5376, 10
Offset: 0
Examples
Triangle begins: 1; 2; 4; 8; 16; 32, 1; 64, 4; 128, 12; 256, 32; 512, 80; 1024, 192, 1; 2048, 448, 6; 4096, 1024, 24; 8192, 2304, 80; 16384, 5120, 240; 32768, 11264, 672, 1; 65536, 24576, 1792, 8; 131072, 53248, 4608, 40; 262144, 114688, 11520, 160; 524288, 245760, 28160, 560; 1048576, 524288, 67584, 1792, 1; 2097152, 1114112, 159744, 5376, 10; ...
References
- Shara Lalo and Zagros Lalo, Polynomial Expansion Theorems and Number Triangles, Zana Publishing, 2018, ISBN: 978-1-9995914-0-3.
Links
Crossrefs
Programs
-
Mathematica
t[n_, k_] := t[n, k] = 2^(n - 5 k)/((n - 5 k)! k!) (n - 4 k)!; Table[t[n, k], {n, 0, 21}, {k, 0, Floor[n/5]} ] // Flatten t[0, 0] = 1; t[n_, k_] := t[n, k] = If[n < 0 || k < 0, 0, 2 t[n - 1, k] + t[n - 5, k - 1]]; Table[t[n, k], {n, 0, 21}, {k, 0, Floor[n/5]}] // Flatten
Formula
T(n,k) = 2^(n - 5*k) / ((n - 5*k)! k!) * (n - 4*k)! where n >= 0 and 0 <= k <= floor(n/5).
Comments