A048154 Triangular array T read by rows: T(n,k)=k^3 mod n, for k=1,2,...,n, n=1,2,...
0, 1, 0, 1, 2, 0, 1, 0, 3, 0, 1, 3, 2, 4, 0, 1, 2, 3, 4, 5, 0, 1, 1, 6, 1, 6, 6, 0, 1, 0, 3, 0, 5, 0, 7, 0, 1, 8, 0, 1, 8, 0, 1, 8, 0, 1, 8, 7, 4, 5, 6, 3, 2, 9, 0, 1, 8, 5, 9, 4, 7, 2, 6, 3, 10, 0, 1, 8, 3, 4, 5, 0, 7, 8, 9, 4, 11, 0, 1, 8, 1, 12, 8, 8, 5, 5, 1, 12, 5, 12, 0
Offset: 1
Examples
Rows: {0}; {1, 0}; {1, 2, 0}; {1, 0, 3, 0}; {1, 3, 2, 4, 0}; {1, 2, 3, 4, 5, 0}; ...
Links
- T. D. Noe, Rows n=1..100 of triangle, flattened
Crossrefs
Cf. A048155.
Programs
-
Mathematica
Table[Mod[k^3, n], {n, 13}, {k, n}] // Flatten (* Michael De Vlieger, Jun 26 2016 *)