OFFSET
2,1
LINKS
Seiichi Manyama, Rows n = 2..200, flattened
EXAMPLE
n\k | 2 3 4 5 6
-----+---------------------------------------------
2 | 2;
3 | 6;
4 | 8, 24;
5 | 24, 120;
6 | 16, 720;
7 | 48, 666, 5040;
8 | 128, 954, 40320;
9 | 384, 8586, 100736, 362880;
10 | 768, 26811, 483072, 3628800;
11 | 1280, 58725, 2168064, 39916800;
12 | 3072, 173259, 9239552, 234860975, 479001600;
MATHEMATICA
row[n_] := Module[{k = 1, s = {}}, While[k^n <= n!, k++; AppendTo[s, Mod[n!, k^n]]]; s]; Table[row[n], {n, 2, 12}] // Flatten (* Amiram Eldar, Apr 28 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Seiichi Manyama, Jan 22 2021
STATUS
approved