A146305【n，m】：=2（2米+3）！（（4 n+2 m+1）/米/（m+2）/不/（3 n+2 m+3）！）；布朗E[r_，n_，m]：=模块{j，s，p}，其中[r<1，返回[0]，r==1，返回[A146305[n，m]]，r==2，{s，j}=商余数[n，2]；如果[EvenQ[m]，返回[0]]；p=（m+1）/2；如果[p>0&&s>=0，返回[2（2p）！（（4s+2p+2j-1）！/p！/（p-1）/s/（3s+2p+2j）！）]，返回[0]]，r==3&Mod[n，3]==0&Mod[m，3]==0，s=n/3；p=m/3；如果[p>=0&&s>=0，返回[（2p+1）！（（4s+2p）！/p！/p？/s！/（3s+2p+1））]，返回[0]]，r>=3，如果[Mod[n-1，r]==0&&Mod[m+3，r]==0，s=（n-1）/r；p=（m+3）/r-1；如果[p>=0&&s>=0，返回[（2p+2）！（4s+2p+1）！/p！/（p+1）/s/（3 s+2 p+2）！）]，返回[0]]，返回[0]]]，True，返回[0]]]；布朗G[n_，m_]：=和[EulerPhi[s]BrownE[s，n，m]，{s，除数[m+3]}]/（m+3）；表[BrownG[n-m，m]，{n，0,12}，{m，n，0,-1}]//展平（*Jean-François Alcover，2020年3月29日，继R.J.Mathar*之后）