|
%I #6 Oct 24 2012 00:49:05
%S 1,1,4,2,12,27,6,44,162,256,24,200,945,2560,3125,120,1096,6075,21760,
%T 46875,46656,720,7056,43848,188160,546875,979776,823543,5040,52272,
%U 354564,1732864,6125000,15023232,23059204,16777216,40320,438336,3189348
%N Triangle, read by rows, of Stirling numbers of first kind, S1(n,k), multiplied by k^k, for n >= 1, 1<=k<=n.
%F a(i, j) := S1(i, j)*j^j
%e Table begins
%e 1;
%e 1 4;
%e 2 12 27;
%e 6, 44, 162, 256;
%e etc.
%p (i,j) -> abs(stirling1(i,j)*j^j)
%t Flatten[Table[Table[k^k Abs[StirlingS1[n, k]], {k, 1, n}], {n, 1, 9}], 1]
%Y Cf. A008275.
%Y Cf. A105197 (similar triangle for S2).
%K nonn,tabl,easy
%O 1,3
%A Jeffrey Hall (hallj5(AT)southernct.edu), Apr 11 2005
%E Typo in definition and Mathematica program by _Olivier Gérard_, Oct 24 2012
|
