登录
A081308号
将n写成素数和3-光滑数之和的方法有很多。
6
0, 0, 1, 2, 2, 3, 2, 3, 3, 2, 4, 2, 3, 4, 4, 2, 3, 2, 5, 4, 5, 2, 5, 1, 5, 3, 4, 1, 6, 2, 5, 4, 3, 3, 7, 0, 5, 4, 5, 3, 5, 1, 6, 3, 5, 3, 6, 1, 7, 4, 4, 1, 6, 1, 8, 4, 3, 1, 7, 1, 7, 3, 4, 2, 8, 1, 7, 3, 5, 3, 7, 1, 6, 4, 7, 2, 10, 0, 8, 3, 3, 2, 9, 2, 9, 3, 4, 3, 6, 1, 9, 3, 3, 2, 9, 0, 5, 5, 4, 3, 8, 1, 7, 3, 6
抵消
1,4
评论
渐近地,对于n互质为6,平均值为a(n)~C*n,其中C=3/(2*log(2)*log(3))~1.969796…,见链接。-M.F.Hasler,2011年10月21日
一个(A081310号(n) )=0;一个(A081311号(n) )>0;一个(A081312号(n) )=1;一个(A081313号(n) )>1。
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
马克·安德伍德,另一个哥德巴赫主题2009年3月16日,2011年10月21日跟进。
马克·安德伍德等人,另一个哥德巴赫主题2009年3月16日至2011年10月30日,雅虎集团64条素数信息摘要。[缓存副本]
例子
a(12)=2:12=11+1=3+3^2;a(13)=3:13=11+2=7+2*3=5+2^3。
数学
nmax=1000;
S=选择[Range[nmax],Max[FactorInteger[#][[All,1]]<=3&];
a[n_]:=计数[TakeWhile[S,#<n&],S_/;素数Q[n-s]];
表[a[n],{n,1,nmax}](*让-弗朗索瓦·奥尔科弗2021年10月13日*)
黄体脂酮素
(PARI)A081308号(n) =my(L2=log(2));总和(e3=0,log(n+.5)\log(3),总和(e2=0,log(n\3^e3)\L2,isprime(n-(3^e3<<e2))\\M.F.哈斯勒2011年10月21日
(哈斯克尔)
a081308 n=总和$map(a010051’.(n-))$takeWhile(<n)a003586_list
关键词
非n
作者
状态
经核准的