%I#29 2016年12月9日10:14:42

%S 1,3,7,14,25,45,7211718027540359684612061681233531834342，

%电话5820779910321136221779823221300093870649567631680366，

%电话：1018051282111611342015372514953125083875354787786745900727249208887951086324

%N N的所有分区的奇数诱导部分的总和。

%C有关更多信息，请参阅A206563。

%H Alois P.Heinz，n的表格，n=1..1000时的a（n）</a>

%F a（n）=A066186（n）-A207382（n）=A066897（n）+A207382（n）。

%e对于n=5，写出5的分区，并写出其奇数诱导部分的总和：

%e、。5

%e、。3+2

%e、。4+1

%e、。2+2+1

%e、。3+1+1

%e、。2+1+1+1

%e。1+1+1+1+1

%e------------

%e。20 + 4 + 1 = 25

%e奇数诱导部分的总和为25，因此a（5）=25。

%p b:=proc（n，i）选项记住；局部g，h；

%p如果n=0，则[1，0$2]

%p elif i<1，然后[0$3]

%p其他g：=b（n，i-1）；h： =`if`（i>n，[0$3]，b（n-i，i））；

%p[g[1]+h[1]，g[2]+h[3]，g[3]+h[2]+i*h[1]

%功率因数

%p端：

%p a：=n->b（n，n）[3]：

%p序列（a（n），n=1..50）；#_Alois P.Heinz，2012年3月12日

%tb[n_，i_]：=b[n，i]=模[{g，h}，如果[n==0，{1，0，0}，当[i<1，{0，0}，g=b[n，i-1]；h=如果[i>n，{0,0,0}，b[n-i，i]]；{g[[1]]+h[[1]]，g[[2]]+h[3]，g[[3]]+h[2]]+i*h[1]}]]；a[n]：=b[n，n][[3]；表[a[n]，{n，1，50}]（*_Jean-François Alcover_，2016年12月9日，在_Alois P.Heinz_*之后）

%Y参见A066186、A066897、A06689、A181187、A194714、A206283、A206563、A207031、A20703、A207382。

%K nonn公司

%O 1,2号机组

%2012年2月17日，A_Omar E.Pol_

%E更多条款，来自_Alois P.Heinz，2012年3月12日