%I#10 2013年11月21日12:50:05
%S 2,4,3,6,5,10,9,7,14,13,26,25,21,19,38,37,74,73146145141139278,
%电话2775545535471094109321862185218121794358435787148713,
%电话:17426174251742117419348383483734827
%N a(1)=2;a(n)是前一项的两倍,如果它是质数,否则前一项减去其最低质数因子加一。
%H Harvey P.Dale,n的表格,n=1..1000的a(n)</a>
%e2是素数;2 * 2 = 4. 4为复合型;4-lpf(4)+1=4-2+1=3。3是质数;3 * 2 = 6. 6为复合型;6-lpf(6)+1=6-2+1=5。
%t连接[{s=2},表[If[PrimeQ[s],s=2s,s=s-FactorInteger[s][[1,1]]+1];s、 {43}]]
%t嵌套列表[If[PrimeQ[#],2#,#-FactorInteger[#][[1,1]]+1]&,2,50](*哈维·P·达尔,2012年5月2日*)
%Y参考A020639。
%K nonn公司
%O 1,1号机组
%A _格兰特·加西亚,2011年1月21日
|