OFFSET
1,1
COMMENTS
Apart from 8, seems to consist of primes or a product of two primes.
EXAMPLE
3 mod 2 =1
5 mod 3 =2 ;5 mod 2 =1
8 mod 5 =3 ;8 mod 3 =2; 8 mod 2 =0
11 mod 7 =4; 11 mod 4 =3; 11 mod 3 =2; 11 mod 2= 1
or, as a triangular table:
1
2;1
3;2;1
5;3;2;1
8;5;3;2;0
11;7;4;3;2;1
19;12;7;5;4;3;1
34;25;9;7;6;4;2;0
MATHEMATICA
modlen[n_, m_]:= Length[NestWhileList[Mod[n, #1]&, m, #1>1&]];
Table[Max[modlen[n, #1]& /@ Range[Floor[n/2]]], {n, 70000}]; Flatten[Position[%, #, 1, 1]&/@ Range[64]]; Function[n, modlen[n, #1]& /@ Range[Floor[n/2]]]/@ %; Flatten[First /@ (Position[ #, Max[ # ]]&/@ %)]; Drop[Transpose[{%%%, %}], 2]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, May 16 2010
STATUS
approved