This site is supported by donations to The OEIS Foundation.

User talk:Artur Jasinski

From OeisWiki

Jump to: navigation, search

Artur, I know it's a little annoying, but you have to log in to the other "half" of the OEIS to submit additions to sequences. Since this is an understandable confusion, today I moved your contribution over for you. For other proposed additions, what you should do is go to the page where the sequence is already listed, click "Edit" and then type in the relevant field (in this case, the Mathematica field). You don't need to create new pages on the OEIS Wiki for this purpose. Alonso del Arte 02:54, 7 December 2010 (UTC)

dear Artur,

sequence A051625 "Number of "labeled" cyclic subgroups of symmetric group S_n." has been subject of interesting discussions on the SeqFan mailing list. Looking at your Mathematica program submitted a few years back, I see it must have taken a while to program. Also, it doesn't deliver the optimum speed. Would you mind if I replaced it with a shorter and faster version? Or should I leave your formula and put mine after it?


    << Combinatorica` ;  content[li_List] := Table[Count[li, i], {i, Tr[li]}];
    Table[Tr[(n!/(Times @@ (Range[Tr[#1]]^content[#1]*content[#1]!)*               
    EulerPhi[ LCM @@ Flatten[Position[content[#1], _?Positive]]]) & )
    /@ Partitions[n]], {n, 24}]

with friendly greetings,

--Wouter Meeussen 12:23, 26 May 2013 (UTC)Wouter.

__ Do u know what A000217,A000292,A000332 all have in common ?

Personal tools