A117401
Triangle T(n,k) = 2^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 1, 4, 4, 1, 1, 8, 16, 8, 1, 1, 16, 64, 64, 16, 1, 1, 32, 256, 512, 256, 32, 1, 1, 64, 1024, 4096, 4096, 1024, 64, 1, 1, 128, 4096, 32768, 65536, 32768, 4096, 128, 1, 1, 256, 16384, 262144, 1048576, 1048576, 262144, 16384, 256, 1
Offset: 0
A(x,y) = 1/(1-xy) + x/(1-2xy) + x^2/(1-4xy) + x^3/(1-8xy) + ...
Triangle begins:
1;
1, 1;
1, 2, 1;
1, 4, 4, 1;
1, 8, 16, 8, 1;
1, 16, 64, 64, 16, 1;
1, 32, 256, 512, 256, 32, 1;
1, 64, 1024, 4096, 4096, 1024, 64, 1;
1, 128, 4096, 32768, 65536, 32768, 4096, 128, 1;
1, 256, 16384, 262144, 1048576, 1048576, 262144, 16384, 256, 1;
-
A117401:= func< n, k, m | (m+2)^(k*(n-k)) >;
[A117401(n, k, 0): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 28 2021
-
Table[2^((n-k)k),{n,0,10},{k,0,n}]//Flatten (* Harvey P. Dale, Jan 09 2017 *)
-
T(n,k)=if(n
-
def A117401(n, k, m): return (m+2)^(k*(n-k))
flatten([[A117401(n, k, 0) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 28 2021
A118180
Triangle T(n, k) = 3^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 3, 1, 1, 9, 9, 1, 1, 27, 81, 27, 1, 1, 81, 729, 729, 81, 1, 1, 243, 6561, 19683, 6561, 243, 1, 1, 729, 59049, 531441, 531441, 59049, 729, 1, 1, 2187, 531441, 14348907, 43046721, 14348907, 531441, 2187, 1, 1, 6561, 4782969, 387420489, 3486784401, 3486784401, 387420489, 4782969, 6561, 1
Offset: 0
A(x,y) = 1/(1-xy) + x/(1-3xy) + x^2/(1-9xy) + x^3/(1-27xy) + ...
Triangle begins:
1;
1, 1;
1, 3, 1;
1, 9, 9, 1;
1, 27, 81, 27, 1;
1, 81, 729, 729, 81, 1;
1, 243, 6561, 19683, 6561, 243, 1;
1, 729, 59049, 531441, 531441, 59049, 729, 1;
1, 2187, 531441, 14348907, 43046721, 14348907, 531441, 2187, 1; ...
The matrix inverse T^-1 starts:
1;
-1, 1;
2, -3, 1;
-10, 18, -9, 1;
134, -270, 162, -27, 1;
-4942, 10854, -7290, 1458, -81, 1; ...
where [T^-1](n,k) = A118183(n-k)*(3^k)^(n-k).
Cf.
A117401 = ConvOffsStoT transform of 2^n.
-
A118180:= func< n, k, m | (m+2)^(k*(n-k)) >;
[A118180(n, k, 1): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 28 2021
-
seq(seq( (3^k)^(n-k), k=0..n), n=0..12);
-
T[n_, k_, m_]:= (m+2)^(k*(n-k)); Table[T[n,k,1], {n,0,12}, {k,0,n}]//Flatten (* G. C. Greubel, Jun 28 2021 *)
-
T(n,k) = if(k<0 || k>n, 0, 3^(k*(n-k)));
-
def A118180(n, k, m): return (m+2)^(k*(n-k))
flatten([[A118180(n, k, 1) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 28 2021
A118185
Triangle T(n,k) = 4^(k*(n-k)) for n>=k>=0, read by rows.
Original entry on oeis.org
1, 1, 1, 1, 4, 1, 1, 16, 16, 1, 1, 64, 256, 64, 1, 1, 256, 4096, 4096, 256, 1, 1, 1024, 65536, 262144, 65536, 1024, 1, 1, 4096, 1048576, 16777216, 16777216, 1048576, 4096, 1, 1, 16384, 16777216, 1073741824, 4294967296, 1073741824, 16777216, 16384, 1
Offset: 0
A(x,y) = 1/(1-xy) + x/(1-4xy) + x^2/(1-16xy) + x^3/(1-64xy) + ...
Triangle begins:
1;
1, 1;
1, 4, 1;
1, 16, 16, 1;
1, 64, 256, 64, 1;
1, 256, 4096, 4096, 256, 1;
1, 1024, 65536, 262144, 65536, 1024, 1;
1, 4096, 1048576, 16777216, 16777216, 1048576, 4096, 1; ...
The matrix inverse T^-1 starts:
1;
-1, 1;
3, -4, 1;
-33, 48, -16, 1;
1407, -2112, 768, -64, 1;
-237057, 360192, -135168, 12288, -256, 1; ...
where [T^-1](n,k) = A118188(n-k)*4^(k*(n-k)).
-
[4^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 29 2021
-
Table[4^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten (* G. C. Greubel, Jun 29 2021 *)
-
T(n, k)=if(n
-
flatten([[4^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 29 2021
A118190
Triangle T(n,k) = 5^(k*(n-k)) for n >= k >= 0, read by rows.
Original entry on oeis.org
1, 1, 1, 1, 5, 1, 1, 25, 25, 1, 1, 125, 625, 125, 1, 1, 625, 15625, 15625, 625, 1, 1, 3125, 390625, 1953125, 390625, 3125, 1, 1, 15625, 9765625, 244140625, 244140625, 9765625, 15625, 1, 1, 78125, 244140625, 30517578125, 152587890625, 30517578125, 244140625, 78125, 1
Offset: 0
A(x,y) = 1/(1-x*y) + x/(1-5*x*y) + x^2/(1-25*x*y) + x^3/(1-125*x*y) + ...
Triangle begins:
1;
1, 1;
1, 5, 1;
1, 25, 25, 1;
1, 125, 625, 125, 1;
1, 625, 15625, 15625, 625, 1;
1, 3125, 390625, 1953125, 390625, 3125, 1;
1, 15625, 9765625, 244140625, 244140625, 9765625, 15625, 1; ...
The matrix inverse T^-1 starts:
1;
-1, 1;
4, -5, 1;
-76, 100, -25, 1;
7124, -9500, 2500, -125, 1;
-3326876, 4452500, -1187500, 62500, -625, 1; ...
where [T^-1](n,k) = A118193(n-k)*(5^k)^(n-k).
-
[5^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 29 2021
-
With[{m=3}, Table[(m+2)^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten] (* G. C. Greubel, Jun 29 2021 *)
-
T(n, k)=if(n
-
flatten([[5^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 29 2021
A158116
Triangle T(n,k) = 6^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 6, 1, 1, 36, 36, 1, 1, 216, 1296, 216, 1, 1, 1296, 46656, 46656, 1296, 1, 1, 7776, 1679616, 10077696, 1679616, 7776, 1, 1, 46656, 60466176, 2176782336, 2176782336, 60466176, 46656, 1, 1, 279936, 2176782336, 470184984576, 2821109907456, 470184984576, 2176782336, 279936, 1
Offset: 0
Triangle starts:
1;
1, 1;
1, 6, 1;
1, 36, 36, 1;
1, 216, 1296, 216, 1;
1, 1296, 46656, 46656, 1296, 1;
1, 7776, 1679616, 10077696, 1679616, 7776, 1;
1, 46656, 60466176, 2176782336, 2176782336, 60466176, 46656, 1;
Cf.
A117401 (m=0),
A118180 (m=1),
A118185 (m=2),
A118190 (m=3), this sequence (m=4),
A176642 (m=6),
A158117 (m=8),
A176627 (m=10),
A176639 (m=13),
A156581 (m=15),
A176643 (m=19),
A176631 (m=20),
A176641 (m=26).
-
[6^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 30 2021
-
With[{m=4}, Table[(m+2)^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten] (* G. C. Greubel, Jun 30 2021 *)
-
T(n,k) = 6^(k*(n-k));
for (n=0,11,for (k=0,n, print1(T(n,k),", "));print();); \\ Joerg Arndt, Feb 21 2014
-
flatten([[6^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 30 2021
A158117
Triangle T(n, k) = 10^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 10, 1, 1, 100, 100, 1, 1, 1000, 10000, 1000, 1, 1, 10000, 1000000, 1000000, 10000, 1, 1, 100000, 100000000, 1000000000, 100000000, 100000, 1, 1, 1000000, 10000000000, 1000000000000, 1000000000000, 10000000000, 1000000, 1
Offset: 0
Triangle begins as:
1;
1, 1;
1, 10, 1;
1, 100, 100, 1;
1, 1000, 10000, 1000, 1;
1, 10000, 1000000, 1000000, 10000, 1;
1, 100000, 100000000, 1000000000, 100000000, 100000, 1;
1, 1000000, 10000000000, 1000000000000, 1000000000000, 10000000000, 1000000, 1;
Cf.
A117401 (m=0),
A118180 (m=1),
A118185 (m=2),
A118190 (m=3),
A158116 (m=4),
A176642 (m=6), this sequence (m=8),
A176627 (m=10),
A176639 (m=13),
A156581 (m=15),
A176643 (m=19),
A176631 (m=20),
A176641 (m=26).
-
[10^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 30 2021
-
(* First program *)
T[n_, k_, q_]= Binomial[q+2,2](k*(n-k));
Table[T[n,k,3], {n, 0, 12}, {k, 0, n}]//Flatten (* modified by G. C. Greubel, Jun 30 2021 *)
(* Second program *)
With[{m=8}, Table[(m+2)^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten] (* G. C. Greubel, Jun 30 2021 *)
-
flatten([[10^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 30 2021
A176627
Triangle T(n, k) = 12^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 12, 1, 1, 144, 144, 1, 1, 1728, 20736, 1728, 1, 1, 20736, 2985984, 2985984, 20736, 1, 1, 248832, 429981696, 5159780352, 429981696, 248832, 1, 1, 2985984, 61917364224, 8916100448256, 8916100448256, 61917364224, 2985984, 1
Offset: 0
Triangle begins as:
1;
1, 1;
1, 12, 1;
1, 144, 144, 1;
1, 1728, 20736, 1728, 1;
1, 20736, 2985984, 2985984, 20736, 1;
1, 248832, 429981696, 5159780352, 429981696, 248832, 1;
1, 2985984, 61917364224, 8916100448256, 8916100448256, 61917364224, 2985984, 1;
Cf.
A117401 (m=0),
A118180 (m=1),
A118185 (m=2),
A118190 (m=3),
A158116 (m=4),
A176642 (m=6),
A158117 (m=8), this sequence (m=10),
A176639 (m=13),
A156581 (m=15),
A176643 (m=19),
A176631 (m=20),
A176641 (m=26).
-
[(12)^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 30 2021
-
(* First program *)
T[n_, k_, q_]= (Binomial[3*q,2]/3)^(k*(n-k));
Table[T[n,k,3], {n,0,12}, {k,0,n}]//Flatten (* modified by G. C. Greubel, Jun 30 2021 *)
(* Second program *)
With[{m=10}, Table[(m+2)^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten] (* G. C. Greubel, Jun 30 2021 *)
-
flatten([[(12)^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 30 2021
A176639
Triangle T(n, k) = 15^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 15, 1, 1, 225, 225, 1, 1, 3375, 50625, 3375, 1, 1, 50625, 11390625, 11390625, 50625, 1, 1, 759375, 2562890625, 38443359375, 2562890625, 759375, 1, 1, 11390625, 576650390625, 129746337890625, 129746337890625, 576650390625, 11390625, 1
Offset: 0
Triangle begins as:
1;
1, 1;
1, 15, 1;
1, 225, 225, 1;
1, 3375, 50625, 3375, 1;
1, 50625, 11390625, 11390625, 50625, 1;
1, 759375, 2562890625, 38443359375, 2562890625, 759375, 1;
Cf.
A117401 (m=0),
A118180 (m=1),
A118185 (m=2),
A118190 (m=3),
A158116 (m=4),
A176642 (m=6),
A158117 (m=8),
A176627 (m=10), this sequence (m=13),
A156581 (m=15),
A176643 (m=19),
A176631 (m=20),
A176641 (m=26).
-
[(15)^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 30 2021
-
(* First program *)
T[n_, k_, q_] = Binomial[2*q, 2]^(k*(n-k));
Table[T[n, k, 3], {n,0,12}, {k,0,n}]//Flatten (* modified by G. C. Greubel, Jun 30 2021 *)
(* Second program *)
With[{m=13}, Table[(m+2)^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten] (* G. C. Greubel, Jun 30 2021 *)
-
flatten([[(15)^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 30 2021
A176642
Triangle T(n, k) = 8^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 8, 1, 1, 64, 64, 1, 1, 512, 4096, 512, 1, 1, 4096, 262144, 262144, 4096, 1, 1, 32768, 16777216, 134217728, 16777216, 32768, 1, 1, 262144, 1073741824, 68719476736, 68719476736, 1073741824, 262144, 1, 1, 2097152, 68719476736, 35184372088832, 281474976710656, 35184372088832, 68719476736, 2097152, 1
Offset: 0
Triangle begins as:
1;
1, 1;
1, 8, 1;
1, 64, 64, 1;
1, 512, 4096, 512, 1;
1, 4096, 262144, 262144, 4096, 1;
1, 32768, 16777216, 134217728, 16777216, 32768, 1;
1, 262144, 1073741824, 68719476736, 68719476736, 1073741824, 262144, 1;
Cf.
A117401 (m=0),
A118180 (m=1),
A118185 (m=2),
A118190 (m=3),
A158116 (m=4), this sequence (m=6),
A158117 (m=8),
A176627 (m=10),
A176639 (m=13),
A156581 (m=15),
A176643 (m=19),
A176631 (m=20),
A176641 (m=26).
-
[8^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jun 30 2021
-
T[n_, k_, q_]:= (q*(3*q-2))^(k*(n-k)); Table[T[n, k, 2], {n, 0, 12}, {k, 0, n}]//Flatten
With[{m=6}, Table[(m+2)^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten] (* G. C. Greubel, Jun 30 2021 *)
-
flatten([[8^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jun 30 2021
A176631
Triangle T(n, k) = 22^(k*(n-k)), read by rows.
Original entry on oeis.org
1, 1, 1, 1, 22, 1, 1, 484, 484, 1, 1, 10648, 234256, 10648, 1, 1, 234256, 113379904, 113379904, 234256, 1, 1, 5153632, 54875873536, 1207269217792, 54875873536, 5153632, 1, 1, 113379904, 26559922791424, 12855002631049216, 12855002631049216, 26559922791424, 113379904, 1
Offset: 0
Triangle begins as:
1;
1, 1;
1, 22, 1;
1, 484, 484, 1;
1, 10648, 234256, 10648, 1;
1, 234256, 113379904, 113379904, 234256, 1;
1, 5153632, 54875873536, 1207269217792, 54875873536, 5153632, 1;
Cf.
A117401 (m=0),
A118180 (m=1),
A118185 (m=2),
A118190 (m=3),
A158116 (m=4),
A176642 (m=6),
A158117 (m=8),
A176627 (m=10),
A176639 (m=13),
A156581 (m=15),
A176643 (m=19), this sequence (m=20),
A176641 (m=26),
A176644 (m=38).
-
[22^(k*(n-k)): k in [0..n], n in [0..12]]; // G. C. Greubel, Jul 01 2021
-
T[n_, k_, q_]= (Binomial[3*q,2]/3)^(k*(n-k)); Table[T[n,k,4], {n,0,12}, {k,0,n}]//Flatten
Table[22^(k*(n-k)), {n,0,12}, {k,0,n}]//Flatten (* G. C. Greubel, Jul 01 2021 *)
-
flatten([[22^(k*(n-k)) for k in (0..n)] for n in (0..12)]) # G. C. Greubel, Jul 01 2021
Showing 1-10 of 13 results.
Comments