%I#51 2023年9月28日05:08:08
%S 1,1,1,1,0,3,1,2,1,2,1,2,2,0,4,1,3,2,4,3,3,1,0,0,5,1,0,4,2,0,6,6,6,
%温度:5,1,2,3,0,0,6,1,0,0,0,0,1,5,2,4,0,8,3,0,10,7,1,0,12,3,0,
%U 6,2,0,0,10,3,6,0,12,5,0,15,7,14,11,2,0,4,0,0,8
%N由第T(N,k)行读取的不规则三角形,其中第N行列出了N个块,其中第m个块由三角形A127093的第j行组成,但每个项都乘以A000041(m-1),其中j=N-m+1和1<=m<=N。
%C这个三角形是更不规则三角形A340031的浓缩版本。
%C有关对应除数/部分的更多信息,请参见A338156。
%H Paolo Xausa,n的表格,a(n)表示n=1.11480(三角形的第1..40行,展平)
%e三角形开始:
%e[1];
%e[1,2],[1];
%e[1,0,3],[1,2],[2];
%e[1、2、0、4]、[1、0、3]、[2、4]和[3];
%e[1,0,0,0,5],[1,2,0,4],[2,0,6],[3],[5];
%e[。。。
%e行总和为A066186。
%e写成不规则四面体,前五个切片是:
%e(电子)--
%e 1;
%e(电子)-----
%e 1、2、,
%e 1;
%e(电子)--------
%e 1、0、3、,
%e 1、2、,
%e 2;
%e(电子)-----------
%e 1、2、0、4、,
%e 1、0、3、,
%e 2、4、,
%e 3;
%e(电子)--------------
%e 1,0,0,0,5,
%e 1、2、0、4,
%e 2、0、6、,
%e3、6,
%e 5;
%e(电子)--------------
%e行总和表示A339106。
%e由四个区域组成的下表显示了除数和部分之间的对应关系(n=1..5):
%e、。
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%电子|n||1|2|3|4|5|
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%e|P||||| | | ||
%电子|A||||||
%e | R | | | ||
%e | T | | | | |||5|
%e | I | | | | ||3 2|
%e|T||||4|4 1|
%e|I||||| 2 2 |2 2 1|
%e | O | | | | 3 | 3 1 | 3 1 1|
%e|N|||2|2 1|2 1 1|2 11 1 1|
%e|S||1|1 1|1 1 1|1 11 |1 1 1 1|1|1 1 11|
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%e。
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%e | | A181187 | 1 | 3 1 | 6 2 1 | 12 5 2 1 | 20 8 4 2 1|
%e|L||||| | |/| |//|/|//|
%e|I|A066633|1|2 1|4 1 1|7 3 1 1|12 4 2 1 1|
%e|N||*|**|**|****|****|*****|
%e|K|A002260|1|1 2|1 2 3|1 2 3 4|1 2 4 5|
%e|||=|==|===|===|===|==|
%e||A138785|1|2 2|4 2 3|7 6 3 4|12 8 6 4 5|
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%e、。
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%电子||A127093|1|1 2|1 0 3|1 2 0 4|1 0 0 5|
%电子||---------|-----|-------|---------|-----------|-------------|
%电子||A127093||1|1 2|1 0 3|1 2 0 4|
%电子||---------|-----|-------|---------|-----------|-------------|
%e | D | A127093 | | | 1 | 1 2 | 1 0 3|
%e|I|A127093||1|1 2 |1 0 3|
%电子|V|---------|-----|-------|---------|-----------|-------------|
%e|I|A127093|||1|1 2|
%e|S|A127093|||1|1 2|
%电子|O|A127093|||1|1 2|
%电子|R|---------|-----|-------|---------|-----------|-------------|
%电子|S|A127093||||1|
%电子||A127093||||1|
%电子||A127093||||1|
%电子||A127093||||1|
%电子||A127093||||1|
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%e、。
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%电子||A127093|1|1 2|1 0 3|1 2 0 4|1 0 0 5|
%电子|C|A127093||1|1 2|1 0 3|1 2 0 4|
%e|O|-|||2|2 4 |2 0 6|
%e|N|-||||3|3 6|
%e | D |-| | | | ||5|
%e(电子)|---|---------|-----|-------|---------|-----------|-------------|
%e、。
%e表中较低的区域是“除数”区域的浓缩版本。
%t A127093行[n_]:=表格[Boole[Divisible[n,k]]k,{k,n}];
%t A340011行[n_]:=扁平[表[A127093行[n-m+1]分区P[m-1],{m,n}]];
%t阵列[A340011行,10](*Paolo Xausa_,2023年9月28日*)
%Y行总和表示A066186。
%Y非零项表示A340056。
%Y参见A000070、A000041、A002260、A026792、A027750、A058399、A066633、A127093、A135010、A138121、A138785、A176206、A181187、A182703、A207031、A207383、A211992、A221529、A221530、A22153、A221649、A2210650、A237593、A245095、A302246、A30224、A336811、A33681、A33682、A337209、A338156、A339106、A339258、A3 39278、A339304、A340031、A340032、A340035、A340061。
%K nonn,标签
%氧1,3
%A _罗马E.波兰,2020年12月26日