%I#12 2014年4月26日21:05:38

%S 1,0,0,0,1,3,3,6,8,11,12,27,23,33,51,68,6711186217242277，

%电话5025015717601014102116491549219525062777371252754919，

%电话58007259103899858139871384618261230292314223402503961349286

%N隔墙的数量p of N，这样地板（平均值（p））和天花板（平均值）都不是一部分。

%e a（6）计算这3个分区：51、42、411。

%tz=30；f[n_]：=f[n]=整数分区[n]；

%t t1=表格[计数[f[n]，p_/；MemberQ[p，Floor[Mean[p]]]&MemberQ[p，Ceiling[Mean[p]]]，{n，0，z}]（*A241340*）

%t t2=表格[计数[f[n]，p_/！MemberQ[p，Floor[Mean[p]]]&MemberQ[p，Ceiling[Mean[p]]]，{n，0，z}]（*A241341*）

%t t3=表格[计数[f[n]，p_/；MemberQ[p，Floor[平均值[p]]&&！成员Q[p，上限[Mean[p]]]，{n，0，z}]（*A241342*）

%t t4=表格[计数[f[n]，p_/！MemberQ[p，Floor[平均值[p]]&&！成员Q[p，上限[Mean[p]]]，{n，0，z}]（*A241343*）

%t t5=表格[计数[f[n]，p_/；MemberQ[p，Floor[Mean[p]]||MemberQ[p，Ceiling[Mean[p]]]，{n，0，z}]（*A241344*）

%Y参见A241340、A241341、A24134.2和A241344。

%K nonn，简单

%0、7

%百灵鸟金伯利2014年4月20日