NestList[If[PrimeQ[#],2#,#-FactorInteger[#][[1,1]]+1]&,2,50] (*发件人 ] (* _哈维·P·戴尔,_,2012年5月2日*)
OEIS服务器: https://oeis.org/edit/global/2062
编辑
经核准的
Harvey P.Dale,<a href=“/A180625型/b180625.txt“>n表,n=1..1000时为a(n)</a>
NestList[If[PrimeQ[#],2#,#-FactorInteger[#][[1,1]]+1]&,2,50](*摘自Harvey P.Dale,2012年5月2日*)
_格兰特·加西亚(垃圾邮件-oeis公司(自动变速箱)格兰特加西亚.组织),_,2011年1月21日
OEIS服务器: https://oeis.org/edit/global/346
检验过的
提出
A类一(1) = 2;A类一(n) 如果是质数,则是前一项的两倍,否则前一项减去其最低质数因子加一。
Join〔{s=2},Table〔If〔PrimeQ〔s〕,s=2s,s=s因子整数〔s〕〔〔1,1〕〕+1];s、 {43}]]
T.D.诺伊:你能评论一下这个序列吗?
已分配A类(1) =2;A类(n个)是 两次 这个 以前的 学期 如果 它 是 首要的,否则 这个 以前的 学期 减 它的 最低的 首要的 对于因素 授予加 加西亚一.
2, 4, 3, 6, 5, 10, 9, 7, 14, 13, 26, 25, 21, 19, 38, 37, 74, 73, 146, 145, 141, 139, 278, 277, 554, 553, 547, 1094, 1093, 2186, 2185, 2181, 2179, 4358, 4357, 8714, 8713, 17426, 17425, 17421, 17419, 34838, 34837, 34827
1,1
2是质数;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。
囊性纤维变性。A020639号.
已分配
非n
格兰特·加西亚(spam-oeis(AT)grantgarcia.org),2011年1月21日
分配给格兰特·加西亚
回收利用