Artur，我知道这有点烦人，但你必须登录到OEIS的另一半才能提交对序列的添加。由于这是一个可以理解的困惑，今天我把你的贡献转移给你。对于其他建议添加的内容，您应该转到已列出序列的页面，单击“编辑”，然后键入相关字段（在本例中为Mathematica字段）。为此，您无需在OEIS Wiki上创建新页面。阿尔特阿隆索2010年12月7日02:54（UTC）
亲爱的阿图尔，
序列A051625美元“对称群S_n的“标记”循环子群的数量”一直是SeqFan邮件列表中有趣的讨论主题。看看你几年前提交的Mathematica程序，我觉得它一定花了一段时间来编程。此外，它不能提供最佳速度。你介意我换一个更短更快的版本吗？或者我应该把你的公式放在后面吗？
<<组合数学`；content[li_List]：=表[Count[li，i]，{i，Tr[li]}]；表[Tr[（n！/（次数@@（范围[Tr[#1]]^内容[#1]*content[#1]！）*EulerPhi[LCM@@Flatten[位置[content[#1]，_？肯定]]]）&）/@分区[n]]，｛n，24｝]
带着友好的问候，
--沃特·梅森2013年5月26日12:23（UTC）沃特。
沃特将其添加为新的（我的是历史的）
__你知道吗A000217号,A000292号,A000332号都有共同点吗？
