A339626 a(n) = A322437(A002110(n)).

0, 0, 0, 0, 3, 30, 315, 4830, 96453, 2296350

Offset

0,5

Comments

For n > 0, a(n) gives the number of unordered pairs of set partitions of {1,...,n} where no block of the other is a subset (or equal) to any block of the other. See A322441.

Links

Table of n, a(n) for n=0..9.

Formula

For n > 0, a(n) = A322441(n)/2.

Example

The a(4) = 3 such (unordered) pairs of set partitions of {1,2,3,4} are:
  {{1,2},{3,4}}|{{1,3},{2,4}}
  {{1,2},{3,4}}|{{1,4},{2,3}}
  {{1,3},{2,4}}|{{1,4},{2,3}}.

Mathematica

Block[{f}, f[n_] := If[n <= 1, {{}}, Join @@ Table[Map[Prepend[#, d] &, Select[f[n/d], Min @@ # >= d &]], {d, Rest[Divisors[n]]}]]; Map[Length[Select[Subsets[f[#], {2}], And[! Or @@ Divisible @@@ #, ! Or @@ Divisible @@@ Reverse /@ #] &@ Tuples[#] &]] &, FoldList[Times, 1, Prime@ Range@ 7]] ] (* Michael De Vlieger, Dec 10 2020, after Gus Wiseman at A322437 *)

Crossrefs

Cf. A002110, A322437, A322441.

Sequence in context: A131586 A163475 A200142 * A160473 A144283 A229299

Adjacent sequences: A339623 A339624 A339625 * A339627 A339628 A339629

Keyword

nonn,more

Author

Antti Karttunen, Dec 10 2020

Status

approved