OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..3996
MAPLE
N:= 100: # to get a(0) to a(N)
M:= 0: A[0]:= 0: count:= 0:
for m from 2 while count < N do
P:= remove(t -> t[1]=1, combinat:-permute(m));
P:= map(t -> ListTools:-Reverse(subs([seq(i=m+1-i, i=1..m)], t)), P);
R:= select(t -> max(map(nops, convert(P[t], disjcyc))) = 2, [$1..nops(P)]);
for r in R do
count:= count+1;
A[count]:= r+M;
if count = N then break fi;
od:
M:= M + nops(P);
od:
seq(A[i], i=0..count); # Robert Israel, Oct 28 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Name changed by Antti Karttunen, Aug 30 2015
STATUS
approved