%I A047210
%S A047210 0,1,1,1,4,4,4,4,7,9,9,9,12,11,10,9,16,16,17,16,18,20,18,16,24,25,25,
%T A047210 25,28,25,28,25,31,33,30,28,36,36,36,36,40,39,41,37,40,41,42,36,46,49,
%U A047210 49,49,52,52,49,49,55,57,57,49,60,59,58,57,64,64,65,64,64,65,64,64,72
%N A047210 Largest square modulo n.
%H A047210 T. D. Noe, <a href="b047210.txt">Table of n, a(n) for n=1..1000</a>
%H A047210 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               QuadraticResidue.html">Quadratic Residue</a>
%t A047210 Table[r=Range[n]; Max[Mod[r^2, n]], {n, 100}] (T. D. Noe, Dec 18 2008)
%t A047210 Table[r = Range[1 + n/2]; Max[Mod[r^2, n]], {n, 100}] (Zak Seidov, Dec 
               18 2008)
%Y A047210 Sequence in context: A113646 A106325 A159835 this_sequence A120327 A056629 
               A167185
%Y A047210 Adjacent sequences: A047207 A047208 A047209 this_sequence A047211 A047212 
               A047213
%K A047210 easy,nonn
%O A047210 1,5
%A A047210 Henry Bottomley (se16(AT)btinternet.com), Jun 08 2000