登录
A163515号
如果第n个组合是第k1素数、第k2素数……的乘积。。。,kr-th素数然后设置a(n)=k1+k2+…+克朗。
2, 3, 3, 4, 4, 4, 5, 5, 4, 5, 5, 6, 6, 5, 6, 7, 6, 6, 6, 5, 7, 8, 7, 6, 9, 8, 6, 7, 7, 7, 10, 6, 8, 7, 9, 8, 7, 8, 7, 10, 11, 7, 12, 8, 6, 9, 8, 9, 11, 8, 7, 13, 8, 10, 9, 9, 7, 8, 14, 8, 10, 15, 12, 8, 8, 10, 11, 13, 16, 11, 7, 9, 9, 8, 10, 9, 9, 17, 8, 9, 14, 8, 11, 12, 12, 10, 18, 11, 8, 10, 19, 15
抵消
1,1
链接
哈维·P·戴尔,n=1..1000时的n,a(n)表
例子
第一个组合是4=2*2=素数(1)*prime(1),所以a(1)=1+1=2;
第二个组合是6=2*3=素数(1)*prime(2),所以a(2)=1+2=3;
第三个复合是8=2*2*2=素数(1)*素数(1)*素数(1),所以a(3)=1+1+1=3;
第四个组合是9=3*3=素数(2)*prime(2),所以a(4)=2+2=4。
MAPLE公司
A002808号:=proc(n)局部a;如果n=1,则为4;否则对于来自procname(n-1)+1的a,如果不是isprime(a),则执行RETURN(a);结束条件:;结束do;结束条件:;结束过程:A163515号:=程序(n)局部c;抄送:=A002808号(n) ;pfs:=系数(c)[2];加(op(2,p)*numtheory[pi](op(1,p)),p=pfs);结束:连续(A163515号(n) ,n=1..100)#R.J.马塔尔2009年8月5日
数学
kp[c_]:=总计[次@@@({PrimePi[#[[1]]],#[[2]]}&/@FactorInteger[c])];kp/@选择[Range[200],CompositeQ](*哈维·P·戴尔,2022年11月3日*)
关键词
非n
作者
扩展
更正人R.J.马塔尔2009年8月5日
示例编辑人哈维·P·戴尔2013年11月27日
进一步编辑乔恩·肖恩菲尔德2019年3月7日
状态
经核准的