%I#8 2016年11月5日08:05:50
%S 6,12,24,35,61,76,9611814616223024533836238442644460472,
%电话580584605642645664697718740790804812814830852877920,
%电话:92695497910981117811921216133234140614151446145214541459
%在Collatz(3x+1)轨迹中奇数和偶数之和都是半素数的N个数。
%C对应的半素数对是(9,46),(9,58),(9,82),(94,446),(178,838),(95,538)。。。
%H Charles R Greathouse IV,n表,n=1..10000的a(n)</a>
%e6在序列中,因为Collatz轨迹是6->3->10->5->16->8->4->2->1=>奇数成员的和是3+5+1=9=3*3,偶数成员的总和是6+10+16+8+4+2=46=2*23。
%t coll[n_]:=嵌套WhileList[If[EvenQ[#],#/2,3#+1]&,n,#>1&];a: =选择[coll[n],OddQ[#]&];b: =选择[coll[n],EvenQ[#]&];Do[s1=和[a[i]],{i,1,长度[a]}];s2=总和[b[j]],{j,1,长度[b]}];如果[PrimeOmega[s1]==2&&PrimeOmega[s2]==2,打印[n]],{n,11500}]
%o(PARI)是(n)=我的(e,o=1);而(n>1,如果(n%2,o+=n;n+=2*n+1,e+=n,n/=2));isprime(e/2)&&bigomega(o)==2\\查尔斯·R·格里特豪斯四世,2016年10月9日
%Y参见A001358、A213909、A213916、A275866。
%K nonn公司
%O 1,1号机组
%2016年10月9日,拉格瑙市