In[]:=
{Length[#]-1,First[Intersection@@Last[#]]}&[NestWhileList[EchoFunction[Length]@Union[Flatten[{#,(n|->{2n+1,3n+1})/@#}]]&/@#&,List/@#,!IntersectingQ[#[[1]],#[[2]]]&,1]]&[{21,31}]
»
3
»
3
»
7
»
7
»
15
»
15
»
31
»
31
»
63
»
63
»
127
»
127
»
255
»
255
»
511
»
511
»
1023
»
1023
»
2047
»
2047
»
4095
»
4095
»
8191
»
8191
»
16383
»
16383
»
32767
»
32767
»
65535
»
65535
»
131071
»
131071
»
262143
»
262143
»
524287
»
524287
»
1048575
»
1048575
»
2097151
»
2097151
»
4194303
»
4194303
»
8388607
»
8388607
»
16777215
»
16777215
»
33554431
»
33554431
»
67108863
»
67108863
»
134217727
»
134217726
»
268435455
»
268435452
»
536870910
»
536870903
In[]:=
1
Out[]=
1
In[]:=
{Length[#]-1,First[Intersection@@Last[#]]}&[NestWhileList[EchoFunction[Length]@Union[Flatten[{#,(n|->{2n+1,3n+1})/@#}]]&/@#&,List/@#,!IntersectingQ[#[[1]],#[[2]]]&,1]]&[{19,28}]
»
3
»
3
»
7
»
7
»
15
»
15
»
31
»
31
»
63
»
63
»
127
»
127
»
255
»
255
»
511
»
511
»
1023
»
1023
»
2047
»
2047
»
4095
»
4095
»
8191
»
8191
»
16383
»
16383
»
32767
»
32767
»
65535
»
65535
»
131071
»
131071
»
262143
»
262143
»
524287
»
524287
»
1048575
»
1048575
»
2097151
»
2097151
»
4194303
»
4194303
»
8388607
»
8388607
»
16777215
»
16777215
»
33554431
»
33554431
»
67108863
»
67108862
»
134217727
»
134217724
»
268435455
»
268435447
»
536870909
»
536870890