|
%I #12 Sep 08 2022 08:45:20
%S 1,1,1,1,1,1,1,1,2,1,1,2,2,2,1,1,2,4,4,3,1,1,3,7,7,5,3,1,1,4,13,16,12,
%T 7,3,1,1,7,27,40,34,19,9,4,1,1,11,60,105,98,61,29,11,4,1,1,17,134,287,
%U 304,205,102,41,14,4,1,1,29,308,810,982,729,387,160,55,17,5,1
%N Triangle formed from ceiling(k^n/n^k).
%C Correlation matrix is A110537. Row sums are A110536. The row sums of the inverse matrix may be A000007.
%H G. C. Greubel, <a href="/A110535/b110535.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%F Number triangle T(n, k) = if(k<=n, ceiling(k^n/n^k), 0).
%e Rows begin
%e 1;
%e 1, 1;
%e 1, 1, 1;
%e 1, 1, 2, 1;
%e 1, 2, 2, 2, 1;
%e 1, 2, 4, 4, 3, 1;
%e 1, 3, 7, 7, 5, 3, 1;
%e 1, 4, 13, 16, 12, 7, 3, 1;
%t Table[Ceiling[k^n/n^k], {n, 1, 20}, {k, 1, n}] // Flatten (* _G. C. Greubel_, Aug 30 2017 *)
%o (PARI) for(n=1,20, for(k=1,n, print1(ceil(k^n/n^k), ", "))) \\ _G. C. Greubel_, Aug 30 2017
%o (Magma) /* As triangle */ [[Ceiling(k^n/n^k): k in [1..n]]: n in [1.. 15]]; // _Vincenzo Librandi_, Aug 30 2017
%K easy,nonn,tabl
%O 0,9
%A _Paul Barry_, Jul 25 2005
|
