A060037 - OEIS

%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