login
Least m such that (n mod m) > (n^2 mod m).
0

%I #3 Mar 30 2012 17:26:22

%S 3,4,5,3,4,4,3,5,4,3,7,7,3,4,9,3,4,4,3,8,4,3,5,7,3,4,8,3,4,4,3,7,4,3,

%T 8,8,3,4,7,3,4,4,3,7,4,3,7,5,3,4,7,3,4,4,3,9,4,3,7,7,3,4,5,3,4,4,3,5,

%U 4,3,11,7,3,4,7,3,4,4,3,7,4,3,5,8,3,4,7,3,4,4,3,8,4,3,7,7,3,4,8,3,4,4,3,9,4

%N Least m such that (n mod m) > (n^2 mod m).

%e n=100: a(100) = 8 because n=100 == 2 mod 8, n^2=100000 == 0 mod 8 and 8 is the least m such that 100 > 100000 mod m.

%t s={};Do[n1=n;n2=n^2;Do[If[Mod[n1,m]>Mod[n2,m],AppendTo[s,{n,n1,n2,m}];Break[]],{m,2,200}],{n,2,120}];Last/@s

%K nonn

%O 2,1

%A _Zak Seidov_, Aug 31 2006