login
Number of meta-Sylvester classes of 5-multiparking functions of length n.
3

%I #17 Jul 27 2018 04:40:03

%S 1,1,7,90,1679,40977,1234002,44162294,1829650545,86075951647,

%T 4530650659261,263702502327536,16811827814422092,1164790943838593160,

%U 87124861733813622130,6995992413536990011830,600147439879762402873285,54768109160914827946501375,5297131818511043862499262665

%N Number of meta-Sylvester classes of 5-multiparking functions of length n.

%C See Novelli-Thibon (2014) for precise definition.

%H J.-C. Novelli, J.-Y. Thibon, <a href="http://arxiv.org/abs/1403.5962">Hopf Algebras of m-permutations, (m+1)-ary trees, and m-parking functions</a>, arXiv preprint arXiv:1403.5962 [math.CO], 2014. See Fig. 28.

%F G.f.: 1/(1-x) = Sum_{n>=0} a(n) * x^n*(1-x)^n / Product_{k=1..n} (1 + 5*k*x). - _Paul D. Hanna_, Jun 14 2014

%t a[n_] := a[n] = If[n<0, 0, Coefficient[1/(1 - x + x O[x]^n) - Sum[a[k] x^k (1-x)^k/Product[1 + 5 j x + x O[x]^n, {j, 0, k}], {k, 1, n-1}], x, n]];

%t Table[a[n], {n, 0, 20}] (* _Jean-François Alcover_, Jul 27 2018, after _Paul D. Hanna_ *)

%o (PARI) {a(n)=if(n<0, 0, polcoeff(1/(1-x+x*O(x^n)) - sum(k=1, n-1, a(k)*x^k*(1-x)^k/prod(j=0, k, 1+5*j*x+x*O(x^n))), n))}

%o for(n=0, 20, print1(a(n), ", ")) \\ _Paul D. Hanna_, Jun 14 2014

%Y Cf. A132624, A243696, A243697, A243698.

%K nonn

%O 0,3

%A _N. J. A. Sloane_, Jun 14 2014

%E Offset changed to 0 by _Paul D. Hanna_, Jun 14 2014