|
%I #14 Sep 23 2020 19:41:49
%S 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,
%T 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,
%U 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
%N Triangular array T read by rows: T(n,k)=k^4 mod n, for k=1,2,...,n, n=1,2,...
%H T. D. Noe, <a href="/A048156/b048156.txt">Rows n=1..100 of triangle, flattened</a>
%e Rows: {0}; {1,0}; {1,1,0}; ...
%t Table[PowerMod[k,4,n],{n,20},{k,n}]//Flatten (* _Harvey P. Dale_, Sep 23 2020 *)
%K nonn,tabl
%O 1,17
%A _Clark Kimberling_
|
