%我#12 2016年11月22日21:59:54
%S 9,15,33,35,39,51,55,57,75,77,91,93,95,99111117119133135153155,
%电话159171175177195315333339351355357371375339399511,
%电话:5135195315375395535555755795915955977117157557777791795917931933939951955957959973975
%N个包含所有奇数的数字,可以分解为两个带奇数的大于1的数字。
%H Matthew House,<a href=“/A062066/b062016.txt”>n,a(n)表,n=1.-10000</a>
%e 95=19*5可以,但115=23*5和17*5=85不行。
%p dmax:=4:#以获取最多dmax位数的所有项
%p S[1]:=[1,3,5,7,9]:
%p代表d从2到dmax do
%pS[d]:=映射(t->seq(10*t+j,j=1.9,2),S[d-1])
%日期:
%pT:={seq(op(S[i]),i=1..dmax)}减去{1}:
%p R:=T相交{seq(seq(T[i]*T[j],j=1..i),i=1..nops(T))}:
%p排序(转换(R,列表));#_罗伯特·伊斯雷尔(Robert Israel),2016年11月22日
%K nonn,基础,简单
%O 1,1号机组
%A _Amarnath Murthy,2001年6月1日
%E来自马修·康罗伊的更多条款,2001年6月11日
%E 2016年11月22日,马修·豪斯修正了E抵消及更多条款
|