cp's OEIS Frontend

A317883 Number of free pure achiral multifunctions with one atom and n positions.

%I A317883 #11 May 03 2019 21:23:47
%S A317883 1,0,1,1,3,4,10,17,37,70,150,299,634,1311,2786,5879,12584,26904,58005,
%T A317883 125242,271819,591297,1290976,2825170,6199964,13635749,30057649,
%U A317883 66386206,146903289,325637240,723024160,1607805207,3580476340,7984266625,17827226469
%N A317883 Number of free pure achiral multifunctions with one atom and n positions.
%C A317883 A free pure achiral multifunction (PAM) is either (case 1) the leaf symbol "o", or (case 2) a nonempty expression of the form h[g, ..., g] where h and g are PAMs. The number of positions in a PAM is the number of brackets [...] plus the number of o's.
%H A317883 Andrew Howroyd, <a href="/A317883/b317883.txt">Table of n, a(n) for n = 1..200</a>
%F A317883 a(1) = 1; a(n > 1) = Sum_{0 < k < n - 1} a(k) * Sum_{d|(n - k - 1)} a(d).
%F A317883 G.f. A(x) satisfies: A(x) = x * (1 + A(x) * Sum_{k>=1} A(x^k)). - _Ilya Gutkovskiy_, May 03 2019
%e A317883 The a(7) = 10 PAMs:
%e A317883   o[o[o[o]]]
%e A317883   o[o[o][o]]
%e A317883   o[o][o[o]]
%e A317883   o[o[o]][o]
%e A317883   o[o][o][o]
%e A317883   o[o[o,o,o]]
%e A317883   o[o][o,o,o]
%e A317883   o[o,o][o,o]
%e A317883   o[o,o,o][o]
%e A317883   o[o,o,o,o,o]
%t A317883 a[n_]:=If[n==1,1,Sum[a[k]*Sum[a[d],{d,Divisors[n-k-1]}],{k,n-2}]];
%t A317883 Array[a,12]
%o A317883 (PARI) seq(n)={my(p=O(x)); for(n=1, n, p = x + p*x*sum(k=1, n-2, subst(p + O(x^(n\k+1)), x, x^k) ) + O(x*x^n)); Vec(p)} \\ _Andrew Howroyd_, Aug 19 2018
%o A317883 (PARI) seq(n)={my(v=vector(n)); v[1]=1; for(n=2, #v, v[n]=sum(i=1, n-2, v[i]*sumdiv(n-i-1, d, v[d]))); v} \\ _Andrew Howroyd_, Aug 19 2018
%Y A317883 Cf. A002033, A003238, A052893, A053492, A214577, A277996, A280000, A317853, A317875.
%Y A317883 Cf. A317882, A317884, A317885.
%K A317883 nonn
%O A317883 1,5
%A A317883 _Gus Wiseman_, Aug 09 2018
%E A317883 Terms a(13) and beyond from _Andrew Howroyd_, Aug 19 2018