Flatten[Table[PowerMod[k, 2, n], {n, 2, 20}, {k, Floor[n/2]}]] (* From _Harvey P. Dale, _, Mar 05 2012 *)
Flatten[Table[PowerMod[k, 2, n], {n, 2, 20}, {k, Floor[n/2]}]] (* From _Harvey P. Dale, _, Mar 05 2012 *)
_N. J. A. Sloane (njas(AT)research.att.com), _, Mar 17 2001
editing
approved
Flatten[Table[ModPowerMod[k^, 2, n], {n, 2, 20}, {k, Floor[n/2]}]] (* From Harvey P. Dale, May 25 2011 Mar 05 2012 *)
approved
editing
proposed
approved
Flatten[Table[Mod[k^2, n], {n, 2, 20}, {k, Floor[n/2]}]] (* From Harvey P. Dale, May 25 2011 *)
approved
proposed
T. D. Noe, <a href="/A060037/b060037.txt">Rows n=2..100 of triangle, flattened</a>
nonn,tabf,easy,nice,new
T. D. Noe, <a href="http://www.research.att.com/~njas/sequences/b060037.txt">Rows n=2..100 of triangle, flattened</a>
nonn,tabf,easy,nice,new
N. J. A. Sloane (njas, (AT)research.att.com), Mar 17 2001
T. D. Noe, <a href="http://www.research.att.com/~njas/sequences/b060037.txt">Rows n=2..100 of triangle, flattened</a>
nonn,tabf,easy,nice,new
Triangular array T read by rows: T(n,k)=k^2 mod n, for k=1,2,...,[n/2], n=2,3,...
nonn,tabf,easy,nice,new