OFFSET
0,3
COMMENTS
Cyclically successive means 1 is a successor of n.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..250
EXAMPLE
The a(1) = 1 through a(4) = 10 set partitions:
{{1}} {{1,2}} {{1},{2,3}} {{1,2},{3,4}}
{{1},{2}} {{1,2},{3}} {{1,3},{2,4}}
{{1,3},{2}} {{1,4},{2,3}}
{{1},{2},{3}} {{1},{2},{3,4}}
{{1},{2,3},{4}}
{{1,2},{3},{4}}
{{1},{2,4},{3}}
{{1,3},{2},{4}}
{{1,4},{2},{3}}
{{1},{2},{3},{4}}
MATHEMATICA
spsu[_, {}]:={{}}; spsu[foo_, set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@spsu[Select[foo, Complement[#, Complement[set, s]]=={}&], Complement[set, s]]]/@Cases[foo, {i, ___}];
Table[Length[spsu[Select[Subsets[Range[n]], Select[Partition[Range[n], 3, 1, 1], Function[ed, UnsameQ@@ed&&Complement[ed, #]=={}]]=={}&], Range[n]]], {n, 8}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 10 2019
EXTENSIONS
a(12)-a(25) from Alois P. Heinz, Feb 10 2019
STATUS
approved