|
%I #32 Sep 18 2022 12:36:37
%S 1,-4,1,26,-12,1,-234,152,-24,1,2696,-2210,500,-40,1,-37919,36976,
%T -10710,1240,-60,1,630521,-704837,245896,-36750,2590,-84,1,-12111114,
%U 15132932,-6120324,1109696,-101500,4816,-112,1,264051201,-362099010,165387680,-34990620,3901296,-241164,8232,-144,1
%N Triangle read by rows: matrix 4th power of the Stirling-1 triangle A008275.
%H Seiichi Manyama, <a href="/A039816/b039816.txt">Rows n = 1..140, flattened</a>
%H Gabriella Bretti, Pierpaolo Natalini and Paolo E. Ricci, <a href="https://doi.org/10.1515/gmj-2019-2007">A new set of Sheffer-Bell polynomials and logarithmic numbers</a>, Georgian Mathematical Journal, Feb. 2019, page 9.
%F E.g.f. of k-th column: ((log(1+log(1+log(1+log(1+x)))))^k)/k!.
%e Triangle begins:
%e 1;
%e -4, 1;
%e 26, -12, 1;
%e -234, 152, -24, 1;
%e 2696, -2210, 500, -40, 1;
%e -37919, 36976, -10710, 1240, -60, 1;
%e ...
%p T:= Matrix(10,10,(i,j) -> `if`(i>= j, combinat:-stirling1(i,j),0)):
%p M:= T^4:
%p seq(seq(M[i,j],j=1..i),i=1..10); # _Robert Israel_, Sep 12 2022
%t Flatten[Table[SeriesCoefficient[(Log[1+Log[1+Log[1+Log[1+x]]]])^k,{x,0,n}] n!/k!, {n,9}, {k,n}]] (* _Stefano Spezia_, Sep 12 2022 *)
%Y Cf. A000310 (first column), A008275.
%Y Cf. A039812, A039814, A039815, A039817.
%K sign,tabl
%O 1,2
%A _Christian G. Bower_, Feb 15 1999
|
