显示找到的3个结果中的1-3个。
第页1
3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75
评论
到10^n,该序列有8、95、916、8871、86974、858055、8494293、84319349、838308086。。。条款。该序列的较低密度大于0.59368(见Pintz),但似乎小于1;这能被证明吗?查尔斯·格里特豪斯四世2015年9月1日
数学
nmax=1000;
S=选择[Range[nmax],Max[FactorInteger[#][[All,1]]<=3&];
A081308号[n_]:=计数[TakeWhile[S,#<n&],S_/;PrimeQ[n-s]];
黄体脂酮素
(哈斯克尔)
a081310 n=a081310_列表!!(n-1)
a081310_list=过滤器((==0)。a081308)[1..]
(PARI)是(n)=(i=0,logint(n,3),my(k=3^i);而(k<n,如果(isprime(n-k),return(1));k<<=1));0 \\查尔斯·格里特豪斯四世2015年9月1日
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
评论
渐近地,对于n互质为6,平均值为a(n)~C*n,其中C=3/(2*log(2)*log(3))~1.969796…,见链接。-M.F.Hasler,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]];
黄体脂酮素
(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
3, 24, 28, 42, 48, 52, 54, 58, 60, 66, 72, 90, 102, 108, 114, 132, 138, 150, 168, 172, 174, 180, 192, 196, 198, 214, 228, 234, 240, 246, 252, 264, 268, 270, 282, 294, 298, 312, 318, 348, 354, 360, 384, 390, 402, 404, 420, 432, 444, 450, 462, 468, 478, 480, 492
数学
sp3sQ[n_]:=长度[Select[Integer Partitions[n,{2}],(PrimeQ[#[[1]]]&&Max[FactorInteger[#[2]]][[All,1]]]<4)||(PrimeQ[#[[2]]]&&Max[CFactorIntiger[#[1]][[Pall,1]]]<4)&]=1;选择[Range[500],sp3sQ]/。(5->无)(*哈维·P·戴尔2019年2月5日*)
nmax=1000;
S=选择[Range[nmax],Max[FactorInteger[#][[All,1]]<=3&];
A081308号[n_]:=计数[TakeWhile[S,#<n&],S_/;PrimeQ[n-s]];
黄体脂酮素
(哈斯克尔)
a081312 n=a081312_列表!!(n-1)
a081312_list=过滤器((==1)。a081308)[1..]
搜索在0.006秒内完成
|