OFFSET
1,26
LINKS
G. C. Greubel, Rows n = 1..100 of triangle, flattened
EXAMPLE
Triangle begins:
0;
0, 0;
0, 1, 0;
0, 0, 1, 0;
0, 1, 1, 1, 0;
0, 0, 0, 0, 1, 0;
0, 1, 1, 1, 4, 1, 0;
0, 0, 1, 0, 4, 4, 1, 0;
0, 1, 0, 1, 1, 3, 4, 1, 0;
0, 0, 1, 0, 0, 4, 2, 4, 1, 0;
0, 1, 1, 1, 1, 1, 2, 1, 4, 1, 0;
0, 0, 0, 0, 4, 0, 4, 0, 0, 4, 1, 0;
0, 1, 1, 1, 4, 1, 1, 1, 7, 9, 4, 1, 0;
MAPLE
seq(seq( `mod`(n^2, k), k = 1..n), n = 1..15); # G. C. Greubel, Dec 13 2019
MATHEMATICA
Table[PowerMod[n, 2, k], {n, 15}, {k, n}]//Flatten (* G. C. Greubel, Dec 13 2019 *)
PROG
(PARI) tabl(nn) = {for (n=1, nn, for (k=1, n, print1(n^2 % k, ", "); ); print(); ); } \\ Michel Marcus, Mar 31 2014
(Magma) [[Modexp(n, 2, k): k in [1..n]]: n in [1..15]]; // G. C. Greubel, Dec 13 2019
(Sage) [[power_mod(n, 2, k) for k in (1..n)] for n in (1..15)] # G. C. Greubel, Dec 13 2019
(GAP) Flat(List([1..15], n-> List([1..n], k-> PowerMod(n, 2, k) ))); # G. C. Greubel, Dec 13 2019
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
STATUS
approved