%I#11 2019年10月11日12:37:39
%S 0,1,1,3,3,9,14,31,43,69,76118141206235280331440493637704,
%电话82992611521247171470161318411996237524942939323144283656,
%电话:40324216482451225544582065826802764780084518870985010159
%N a(0)=0。a(n)=a(n-1)+(与n互素且从{a(0),a(1),b(2),..,a(n-1)}中缺失的正整数之和)。
%e与8互素且<=8的正整数为1,3,5,7。其中,a(0)到a(7)中缺少5和7。所以a(8)=a(7)+5+7=43。
%t f[l_List]:=块[{n=Length[l]},附加[l,l[-1]]+Plus@@Select[Range[n],GCD[n,#]==1&FreeQ[l,#]&]]];嵌套[f,{0},50](*_Ray Chandler_,2006年10月26日*)
%t s={0,1};b=1;Do[b=b+总计[Select[Range[n],GCD[#1,n]==1&FreeQ[s,#1]&]];附录[s,b],{n,2100}];s(*Seidov*)
%Y参考A122965。
%K nonn公司
%0、4
%A _罗伊查询,2006年10月23日
%E由雷·钱德勒和扎克·塞多夫于2006年10月26日延期
|