A300626 Number of inequivalent colorings of free pure symmetric multifunctions (with empty expressions allowed) with n positions.
1, 1, 3, 11, 43, 187, 872, 4375, 23258, 130485, 767348, 4710715, 30070205, 198983975, 1361361925, 9607908808, 69812787049, 521377973359, 3996036977270, 31389624598631, 252408597286705, 2075472033455894, 17434190966525003, 149476993511444023, 1307022313790487959
Offset: 0
Keywords
Examples
Inequivalent representatives of the a(3) = 11 colorings: 1[1,1] 1[2,2] 1[1,2] 1[2,3] 1[1[]] 1[2[]] 1[][1] 1[][2] 1[1][] 1[2][] 1[][][]
Crossrefs
Programs
-
PARI
\\ See links in A339645 for combinatorial species functions. cycleIndexSeries(n)={my(p=O(x)); for(n=1, n, p = x*sv(1) + x*p*sExp(p)); p} InequivalentColoringsSeq(cycleIndexSeries(15)) \\ Andrew Howroyd, Dec 30 2020
Extensions
Terms a(8) and beyond from Andrew Howroyd, Dec 30 2020
Comments