k=2, r=1

In[]:=
2^2^3/2
Out[]=
128
In[]:=
Sort[Select[Association[Table[ru->-DeathLossFunctionInit[{ru,2,1},{1,1,1,1,1,1,1},30],{ru,0,2^2^3-1,2}]],Positive]]
Out[]=
81,401,641,721,961,1041,1283,1603,1366,1686,1926,2246
[ Like BusyBeaver-05 ]
​

k=2, r=3/2

In[]:=
2^2^4
Out[]=
65536
In[]:=
Select[Association[Table[ru->-DeathLossFunctionInit[{ru,2,3/2},{1,1,1,0,1,1},30],{ru,0,2^2^4-1,2}]],Positive]
Out[]=
In[]:=
Length[%]
Out[]=
1790
In[]:=
Union[Values[%%]]
Out[]=
{1,2,3,4,5,6,7,8,10,12}

k=3, r=1

In[]:=
3^3^3
Out[]=
7625597484987
In[]:=
N[%]
Out[]=
7.6256×
12
10
In[]:=
N[3^3^3/3]
Out[]=
2.54187×
12
10