%I#18 2013年7月19日14:17:38

%序号1,2,24,4120,24336,8,72120

%简化系统模N中Lipschitz四元数群的指数。

%t cuaternios[n_]：=扁平[表[{{a，-b，d，-c}，{b，a，-c，-d}，}-d，c，a，-b}，c,d，b，a}}，a}，n}；A227499【编号】：=长度@选择[cuaternios[n]，GCD[Det[#]，n]==1&]；cuater[n_]：=选择[cuaternios[n]，GCD[Det[#]，n]==1&]；exp[1]=1；expo[M_，n_]：=最小@选择[除数@A227499[n] ，Mod[MatrixPower[M，#]，n]==标识矩阵[4]&]；a[n]：=lcm@表[博览会[cuater[n][i]]，n]，{i，A227499[n]}]；lcm[lis_]：={aux=1；Do[aux=lcm[aux，lis[i]]]，{i，1，Length[lis]}]；辅助}[1]；表[a[n]，{n，2,10}]

%Y参见A227499、A002322。

%K nonn，难，更多

%O 1,2号机组

%A _何塞·玛丽亚·格劳·里巴斯（JoséMaríA Grau Ribas），2013年7月13日