login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A303027 Number of free pure symmetric multifunctions with one atom, n positions, and no empty or unitary parts (subexpressions of the form x[] or x[y]). 6
1, 0, 0, 1, 1, 1, 3, 5, 7, 15, 28, 47, 90, 175, 319, 607, 1181, 2251, 4325, 8449, 16425, 31992, 62823, 123521, 243047, 480316, 951290, 1886293, 3749341, 7467815, 14893500, 29752398, 59532947, 119274491, 239275400, 480638121, 966571853, 1945901716, 3921699524 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,7

COMMENTS

Also the number of orderless Mathematica expressions with one atom, n positions, and no empty or unitary parts.

LINKS

Andrew Howroyd, Table of n, a(n) for n = 1..200

EXAMPLE

The a(10) = 15 Mathematica expressions:

  o[o,o[o,o[o,o]]]

  o[o,o[o,o][o,o]]

  o[o[o,o],o[o,o]]

  o[o,o][o,o[o,o]]

  o[o,o[o,o]][o,o]

  o[o,o][o,o][o,o]

  o[o,o[o,o,o,o,o]]

  o[o,o,o[o,o,o,o]]

  o[o,o,o,o[o,o,o]]

  o[o,o,o,o,o[o,o]]

  o[o,o][o,o,o,o,o]

  o[o,o,o][o,o,o,o]

  o[o,o,o,o][o,o,o]

  o[o,o,o,o,o][o,o]

  o[o,o,o,o,o,o,o,o]

MATHEMATICA

allOLZR[n_]:=allOLZR[n]=If[n==1, {"o"}, Join@@Cases[Table[PR[k, n-k-1], {k, n-1}], PR[h_, g_]:>Join@@Table[Apply@@@Tuples[{allOLZR[h], Select[Union[Sort/@Tuples[allOLZR/@p]], Length[#]>1&]}], {p, IntegerPartitions[g]}]]];

Table[Length[allOLZR[n]], {n, 25}]

PROG

(PARI) EulerT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, 1/n))))-1, -#v)}

seq(n)={my(v=[1]); for(n=2, n, my(t=EulerT(v)-v); v=concat(v, sum(k=1, n-2, v[k]*t[n-k-1]))); v} \\ Andrew Howroyd, Aug 19 2018

CROSSREFS

Cf. A000108, A001003, A001006, A007853, A102403, A126120, A318049.

Cf. A303022, A303023, A303024, A303025, A303026.

Sequence in context: A166093 A165785 A261646 * A217615 A050553 A005540

Adjacent sequences:  A303024 A303025 A303026 * A303028 A303029 A303030

KEYWORD

nonn

AUTHOR

Gus Wiseman, Aug 15 2018

EXTENSIONS

Terms a(29) and beyond from Andrew Howroyd, Aug 19 2018

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 28 10:56 EST 2020. Contains 332323 sequences. (Running on oeis4.)