|
|
A304200
|
|
a(n) is the number of cyclic permutations with at most 2 ascents.
|
|
0
|
|
|
1, 1, 1, 2, 6, 18, 58, 186, 570, 1680, 4878, 14058, 40200, 114450, 325290, 923846, 2624730, 7465410, 21261828, 60647370, 173288724, 496014934, 1422223506, 4084793082, 11751102060, 33857989968, 97697014590, 282295318536, 816759712080, 2366027865810, 6861964439314
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
a(n) is the number of cyclic permutations with at most two ascents. These permutations can also be characterized as admitting a [1, 1, 1]-gridding, meaning they are composed of three contiguous increasing segments.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = L(3,n) - n*L(2,n) when n !== 2 (mod 4) and n>2;
a(n) = L(3,n) + L(3,n/2) - n*(L(2,n) + L(2,n/2)) when n == 2 (mod 4) and n>2;
where L(k,n) is the number of k-ary Lyndon words of length n.
|
|
PROG
|
(PARI) L2(n) = if(n>1, sumdiv(n, d, moebius(d)*2^(n/d))/n, n+1); \\ A001037
L3(n) = if(n<1, n==0, sumdiv(n, d, moebius(n/d)*3^d)/n); \\ A027376
a(n) = if (n <=2, 1, if ((n % 4) != 2, L3(n) - n*L2(n), L3(n) + L3(n/2) - n*(L2(n) + L2(n/2)))); \\ Michel Marcus, May 16 2018
|
|
CROSSREFS
|
Equals A303117 when n !== 2 (mod 4).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|