A111824
Column 0 of the matrix logarithm (A111823) of triangle A111820, which shifts columns left and up under matrix 5th power; these terms are the result of multiplying the element in row n by n!.
Original entry on oeis.org
0, 1, -3, 16, 2814, -1092180, -3603928080, 58978973128440, 5974833380453777520, -3294186866481455009752320, -10279982482873484428390722523200, 175129088125361734252730927280177244800
Offset: 0
A(x) = x - 3/2!*x^2 + 16/3!*x^3 + 2814/4!*x^4 - 1092180/5!*x^5 +...
where e.g.f. A(x) satisfies:
x/(1-x) = A(x) + A(x)*A(5*x)/2! + A(x)*A(5*x)*A(5^2*x)/3! +
A(x)*A(5*x)*A(5^2*x)*A(5^3*x)/4! + ...
Let G(x) be the g.f. of A111821 (column 1 of A111820), then
G(x) = 1 + 5*A(x) + 5^2*A(x)*A(5*x)/2! +
5^3*A(x)*A(5*x)*A(5^2*x)/3! +
5^4*A(x)*A(5*x)*A(5^2*x)*A(5^3*x)/4! + ...
-
{a(n,q=5)=local(A=x/(1-x+x*O(x^n)));for(i=1,n, A=x/(1-x)/(1+sum(j=1,n,prod(k=1,j,subst(A,x,q^k*x))/(j+1)!))); return(n!*polcoeff(A,n))}
A111820
Triangle P, read by rows, that satisfies [P^5](n,k) = P(n+1,k+1) for n>=k>=0, also [P^(5*m)](n,k) = [P^m](n+1,k+1) for all m, where [P^m](n,k) denotes the element at row n, column k, of the matrix power m of P, with P(0,k)=1 and P(k,k)=1 for all k>=0.
Original entry on oeis.org
1, 1, 1, 1, 5, 1, 1, 55, 25, 1, 1, 2055, 1525, 125, 1, 1, 291430, 311525, 38875, 625, 1, 1, 165397680, 239305275, 40338875, 975625, 3125, 1, 1, 390075741430, 735920617775, 157056792000, 5077475625, 24409375, 15625, 1
Offset: 0
Let q=5; the g.f. of column k of matrix power P^m is:
1 + (m*q^k)*L(x) + (m*q^k)^2/2!*L(x)*L(q*x) +
(m*q^k)^3/3!*L(x)*L(q*x)*L(q^2*x) +
(m*q^k)^4/4!*L(x)*L(q*x)*L(q^2*x)*L(q^3*x) + ...
where L(x) satisfies:
x/(1-x) = L(x) + L(x)*L(q*x)/2! + L(x)*L(q*x)*L(q^2*x)/3! + ...
and L(x) = x - 3/2!*x^2 + 16/3!*x^3 + 2814/4!*x^4 +... (A111824).
Thus the g.f. of column 0 of matrix power P^m is:
1 + m*L(x) + m^2/2!*L(x)*L(5*x) + m^3/3!*L(x)*L(5*x)*L(5^2*x) +
m^4/4!*L(x)*L(5*x)*L(5^2*x)*L(5^3*x) + ...
Triangle P begins:
1;
1,1;
1,5,1;
1,55,25,1;
1,2055,1525,125,1;
1,291430,311525,38875,625,1;
1,165397680,239305275,40338875,975625,3125,1; ...
where P^5 shifts columns left and up one place:
1;
5,1;
55,25,1;
2055,1525,125,1;
291430,311525,38875,625,1; ...
A111826
Number of partitions of 5*6^n into powers of 6, also equals column 1 of triangle A111825, which shifts columns left and up under matrix 6th power.
Original entry on oeis.org
1, 6, 96, 6306, 1883076, 2700393702, 19324893252552, 709398600017820522, 136347641698786289641932, 139389318443495655514432423662, 767442745549858935398537400096197328
Offset: 0
-
a(n,q=6)=local(A=Mat(1),B);if(n<0,0, for(m=1,n+2,B=matrix(m,m);for(i=1,m, for(j=1,i, if(j==i || j==1,B[i,j]=1,B[i,j]=(A^q)[i-1,j-1]);));A=B); return(A[n+2,2]))
A111831
Number of partitions of 6*7^n into powers of 7, also equals column 1 of triangle A111830, which shifts columns left and up under matrix 7th power.
Original entry on oeis.org
1, 7, 154, 16275, 9106461, 28543862991, 521136519414483, 56980036448207052005, 38084892600214854893482284, 158081960770204032330986210466109, 4125860571927530263431055188002578191656
Offset: 0
-
a(n,q=7)=local(A=Mat(1),B);if(n<0,0, for(m=1,n+2,B=matrix(m,m);for(i=1,m, for(j=1,i, if(j==i || j==1,B[i,j]=1,B[i,j]=(A^q)[i-1,j-1]);));A=B); return(A[n+2,2]))
A111836
Number of partitions of 7*8^n into powers of 8, also equals column 1 of triangle A111835, which shifts columns left and up under matrix 8th power.
Original entry on oeis.org
1, 8, 232, 36968, 35593832, 219379963496, 9003699178010216, 2530260913162860295784, 4970141819535151534947497576, 69322146154435681317709098939119208
Offset: 0
-
a(n,q=8)=local(A=Mat(1),B);if(n<0,0, for(m=1,n+2,B=matrix(m,m);for(i=1,m, for(j=1,i, if(j==i || j==1,B[i,j]=1,B[i,j]=(A^q)[i-1,j-1]);));A=B); return(A[n+2,2]))
A111817
Number of partitions of 3*4^n into powers of 4, also equals column 1 of triangle A078536, which shifts columns left and up under matrix 4th power.
Original entry on oeis.org
1, 4, 28, 524, 29804, 5423660, 3276048300, 6744720496300, 48290009081437356, 1221415413140406958252, 110523986015743458745929900, 36150734459755630877180158951596
Offset: 0
-
a(n,q=4)=local(A=Mat(1),B);if(n<0,0, for(m=1,n+2,B=matrix(m,m);for(i=1,m, for(j=1,i, if(j==i || j==1,B[i,j]=1,B[i,j]=(A^q)[i-1,j-1]);));A=B); return(A[n+2,2]))
A111849
Column 0 of the matrix logarithm (A111848) of triangle A111845, which shifts columns left and up under matrix 4th power; these terms are the result of multiplying the element in row n by n!.
Original entry on oeis.org
0, 1, 4, 56, 1728, -45696, -159401472, 387212983296, 14722642769657856, -783395638188945997824, -571756408840959817330851840, 603349161280921866200339538247680, 8390141848229920894318007084122311229440
Offset: 0
E.g.f. A(x) = x + 4/2!*x^2 + 56/3!*x^3 + 1728/4!*x^4
- 45696/5!*x^5 - 159401472/6!*x^6 +...
where A(x) satisfies:
x = A(x) - A(x)*A(4*x)/2! + A(x)*A(4*x)*A(4^2*x)/3!
- A(x)*A(4*x)*A(4^2*x)*A(4^3*x)/4! + ...
also:
Let G(x) be the g.f. of A111846 (column 0 of A111845), then
G(x) = 1 + x + 4*x^2 + 40*x^3 + 1040*x^4 + 78240*x^5 +...
= 1 + A(x) + A(x)*A(4*x)/2! + A(x)*A(4*x)*A(4^2*x)/3!
+ A(x)*A(4*x)*A(4^2*x)*A(4^3*x)/4! +...
-
{a(n,q=4)=local(A=Mat(1),B);if(n<0,0, for(m=1,n+1,B=matrix(m,m);for(i=1,m, for(j=1,i, if(j==i,B[i,j]=1,if(j==1,B[i,j]=(A^q)[i-1,1], B[i,j]=(A^q)[i-1,j-1]));));A=B); B=sum(i=1,#A,-(A^0-A)^i/i);return(n!*B[n+1,1]))}
Showing 1-7 of 7 results.
Comments