%I#10 2013年7月13日12:04:09
%S 1,3,5,7,11,15,17,23,31,35,47,53,63,71,95107127161191215255,
%电话28732338343148551157564776786397110231151129514571535,
%电话:172719432047230325912915307134553887409543734607518358316143691177758191874792151036711663
%由以下规则生成的N递增序列:a(1)=1,如果x在a中,则2x+1和3x+2在a中。
%C见A190803。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%t h=2;i=1;j=3;k=2;f=1;g=20;
%t a=并集[Flatten[NestList[{h#+i,j#+k}&,f,g]](*A190812*)
%t b=(a-1)/2;c=(a-2)/3;r=范围[130000];
%t d=交叉口[b,r](*A069353*)
%t e=交叉点[c,r](*A190812推测*)
%o(哈斯克尔)
%o导入数据。集合(singleton、deleteFindMin、insert)
%o a190812 n=a190812_list!!(n-1)
%o a190812_list=f$单例1
%o其中f s=m:(f$插入(2*m+1)$插入(3*m+2)s’)
%o其中(m,s')=deleteFindMin s
%o--_Reinhard Zumkeller_,2011年6月1日
%Y参考A190803、A069353、A190812。
%K nonn公司
%O 1,2号机组
%A_Clark Kimberling_,2011年5月20日
%E a(41)=2047由_Reinhard Zumkeller_插入,2011年6月1日
|