OFFSET
0,9
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
FORMULA
Number triangle T(n, k) = if(k<=n, ceiling(k^n/n^k), 0).
EXAMPLE
Rows begin
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, 7, 3, 1;
MATHEMATICA
Table[Ceiling[k^n/n^k], {n, 1, 20}, {k, 1, n}] // Flatten (* G. C. Greubel, Aug 30 2017 *)
PROG
(PARI) for(n=1, 20, for(k=1, n, print1(ceil(k^n/n^k), ", "))) \\ G. C. Greubel, Aug 30 2017
(Magma) /* As triangle */ [[Ceiling(k^n/n^k): k in [1..n]]: n in [1.. 15]]; // Vincenzo Librandi, Aug 30 2017
CROSSREFS
KEYWORD
AUTHOR
Paul Barry, Jul 25 2005
STATUS
approved