%I#2 2012年3月31日12:38:26

%序号3,4,8,9,18,21,23,24,38,42,43,50,55

%N至少两个连续非素数的伪平均数的整数，形式为（a+b+c+..+z）/z，只能表示一个。

%C（4+6+8+9）/9=3，（9+10+12+14+15）/15=4，。。

%t lst={}；Do[a=0；如果[！PrimeQ[q]，Do[If[！PrimQ[n]，m=n；a+=米；e=a/n；如果[IntegerQ[e]&&a=n、 如果[e<92，AppendTo[lst，e]，Break[]]]，{n，q，6000}]，{q，5200}]；第一次=排序@lst;lst1={3}；lst2={}；Do[If[lst[[n]]==lst[[2n+1]]||lst[[n]]==lst[[1]]，AppendTo[lst2，lst[[0n]]]，AppendTo[lst1，lst[[n]]]，{n，1，Length[lst]-1,1}]；lst1级

%Y参考A165240

%K nonn，未编辑

%O 1,1号机组

%2009年9月16日，A _Vladimir Joseph Stephan Orlovsky