这个网站是由捐款支持的OEIS基金会.

用户对话:Artur Jasinski

来自OeisWiki
跳转到:航行,搜索

阿图尔,我知道这有点烦人,但你必须登录到oei的另一半,才能提交序列的添加。既然这是一个可以理解的困惑,今天我把你的稿件移到了这里。对于其他建议的添加,您应该做的是转到已经列出序列的页面,单击“编辑”,然后输入相关字段(在本例中是Mathematica字段)。为此,您不需要在oeiswiki上创建新页面。阿隆索·德尔阿尔特2010年12月7日02:54(UTC)

亲爱的阿图尔,

序列A051625型SeqFan邮件列表上有“对称群S的循环子群数”这一主题,引起了人们的兴趣。看看几年前提交的Mathematica程序,我发现它一定花了一段时间来编写程序。 而且,它并没有提供最佳的速度。你介意我把它换成更短更快的版本吗?或者我应该把你的配方放在后面?


<<combinatica`;内容[li_List]:=Table[Count[li,i],{i,Tr[li]}];
 Table[Tr[(n!/(Times@@(范围[Tr[#1]^content[#1]*content[#1]!)*EulerPhi[LCM@@展平[位置[内容[#1],\?正]]]])&)
/@Partitions[n]],{n,24}]

致以友好的问候,

--伍特·梅森12: 2013年5月23日,26日(UTC)沃特。

__你知道吗A000217,A000292号,A000332号都有共同点吗?