|
| |
|
| A296372型 |
| 行读取三角形：T（n，k）是长度为n的正常序列数，其标准因式分解为Lyndon单词（非周期项链）具有k个因子。 |
|
21
|
|
|
|
1, 1, 2, 4, 5, 4, 18, 31, 18, 8, 108, 208, 153, 56, 16, 778, 1700, 1397, 616, 160, 32, 6756, 15980, 14668, 7197, 2196, 432, 64, 68220, 172326, 171976, 93293, 31564, 7208, 1120, 128
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
如果有限序列的并是正整数的初始区间，则该序列是正规序列。
|
|
|
链接
|
安德鲁·霍罗伊德，行n=三角形的1..50，扁平
维基百科，林登词：标准因式分解
|
|
|
例子
|
T（3,2）=5正常序列为{2,1,2}，{1,2,1}，}，2,1,3}，[2,3,1}，[3,1,2]。
三角形开始：
1;
1, 2;
4, 5, 4;
18, 31, 18, 8;
108, 208, 153, 56, 16;
778, 1700, 1397, 616, 160, 32;
6756, 15980, 14668, 7197, 2196, 432, 64;
|
|
|
数学
|
neckQ[q_]：=数组[OrderedQ[{q，RotateRight[q，#]}]&，长度[q]-1，1，And]；
aperQ[q_]：=取消命名q@@表格[RotateRight[q，k]，{k，Length[q]}]；
qit[q_]：=如果[#===长度[q]，{q}，前缀[qit[Drop[q，#]]，Take[q，#]]&[Max@@Select[Range[Length[q]]，neckQ[Take[q，#]]&&aperQ[Take[q，#1]]&]]；
allnorm[n_]：=函数[s，数组[Count[s，y_/；y<=#]+1&，n]]/@子集[Range[n-1]+1]；
表[Length[Select[Join@@Permutations/@allnorm[n]，Length[Cit[#]]==k&]]，{n，5}，{k，n}]
|
|
|
黄体脂酮素
|
（PARI）这里U（n，k）是A074650型（n，k）。
EulerMT（u）={my（n=#u，p=x*Ser（u），vars=变量（p））；Vec（exp（总和（i=1，n，substvec（p+O（x*x^（n\i）），vars，apply（v->v^i，vars））/i））-1）}
U（n，k）={sumdiv（n，d，moebius（n/d）*k^d）/n}
A（n）={[Vecrev（p/y）|p<-sum（k=1，n，EulerMT（向量（n，n，y*U（n，k）））*sum（j=k，n，（-1）^（k-j）*二项式（j，k）]}
{my（T=A（10））；对于（n=1，#T，打印（T[n]））}\\安德鲁·霍罗伊德，2018年12月8日
|
|
|
交叉参考
|
行总和为A000670号.
第一列是A060223号.
囊性纤维变性。A000740号,A001045号,A008965号,A019536年,A059966号,A074650型,A185700个,A228369号,A232472号,A277427型,A281013型,A296373型.
上下文中的序列：A200289型 A165044号 A274079号*A278300型 A034214号 A317749型
相邻序列：A296369型 A296370型 A296371型*A296373型 A296374型 A296375型
|
|
|
关键词
|
非n,表
|
|
|
作者
|
古斯·怀斯曼2017年12月11日
|
|
|
扩展
|
示例和程序由更正古斯·怀斯曼，2018年12月8日
|
|
|
状态
|
经核准的
|
| |
|
|
