A048156 Triangular array T read by rows: T(n,k)=k^4 mod n, for k=1,2,...,n, n=1,2,...

0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 4, 3, 4, 1, 0, 1, 2, 4, 4, 2, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 7, 0, 4, 4, 0, 7, 1, 0, 1, 6, 1, 6, 5, 6, 1, 6, 1, 0, 1, 5, 4, 3, 9, 9, 3, 4, 5, 1, 0, 1, 4, 9, 4, 1, 0, 1, 4, 9, 4, 1, 0, 1, 3, 3, 9, 1, 9, 9, 1, 9, 3, 3, 1, 0, 1, 2

Offset

1,17

Links

T. D. Noe, Rows n=1..100 of triangle, flattened

Example

Rows: {0}; {1,0}; {1,1,0}; ...

Mathematica

Table[PowerMod[k, 4, n], {n, 20}, {k, n}]//Flatten (* Harvey P. Dale, Sep 23 2020 *)

Crossrefs

Sequence in context: A336031 A329982 A243149 * A070431 A070511 A066340

Adjacent sequences: A048153 A048154 A048155 * A048157 A048158 A048159

Keyword

nonn,tabl

Author

Clark Kimberling

Status

approved