|
%I #11 Nov 21 2013 12:47:27
%S 1,1,1,0,1,4,1,4,3,1,4,2,1,4,1,0,1,4,0,7,1,4,9,6,5,1,4,9,5,3,1,4,9,4,
%T 1,0,1,4,9,3,12,10,1,4,9,2,11,8,7,1,4,9,1,10,6,4,1,4,9,0,9,4,1,0,1,4,
%U 9,16,8,2,15,13,1,4,9,16,7,0,13,10,9,1,4,9,16,6,17,11,7,5,1,4,9,16,5,16
%N Triangular array T read by rows: T(n,k)=k^2 mod n, for k=1,2,...,[n/2], n=2,3,...
%H T. D. Noe, <a href="/A060037/b060037.txt">Rows n=2..100 of triangle, flattened</a>
%e 1; 1; 1,0; 1,4; 1,4,3; 1,4,2; ...
%t Flatten[Table[PowerMod[k,2,n],{n,2,20},{k,Floor[n/2]}]] (* _Harvey P. Dale_, Mar 05 2012 *)
%Y Cf. A048152, A060036.
%K nonn,tabf,easy,nice
%O 2,6
%A _N. J. A. Sloane_, Mar 17 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Mar 20 2001
|
