|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
a(3)=5,因为用素数{3,5,7}可以写出6=3+3,8=3+5,10=5+5,12=5+7和14=7+7,总共5个偶数。
a(3)=5,因为用素数{3,5,7}可以写出6=3+3,8=3+5,10=5+5&3+7,12=5+7和14=7+7,总共5个偶数。
|
|
MAPLE公司
|
N: =1000:#以获取前N项
素数:={seq(ithprime(i),i=2..N+1)}:
S: ={}:
对于从1到n的n do
S: =S并集映射(`+`,素数[1..n],素数[n]);
A[n]:=nops(S);
日期:
|
|
数学
|
f[n_]:=块[{tp=表[Prime[i],{i,2,n+1}]},长度[Union[Flatten[Table[tp[i]]+tp[j]],{i,n},{j,i}]]];表[f[n],{n,60}](*罗伯特·威尔逊v2005年2月5日*)
|
|
黄体脂酮素
|
(PARI)a(n)=my(P=素数(n+1),s);forstep(k=6,2*P,2,forprime(P=max(k-P,3),min(P,k/2),if(isprime(k-P),s++;断裂));秒\\查尔斯·格里特豪斯四世2014年9月4日
(PARI)列表(n)=我的(P=素数(n+1),u=向量小(P),v=向量(n),k);素数(p=3,p,素数(q=3,p,u[(p+q)/2]=1);v[k++]=总和(i=1,p,u[i]);v(v)\\查尔斯·格里特豪斯四世2014年9月4日
(哈斯克尔)
导入数据。列表(nub)
a102696 n=长度$nub
[p+q|p<-take n a065091_list,q<-takeWhile(<=p)a065091 _list]
|
|
交叉参考
|
|
|
关键词
|
容易的,非n
|
|
作者
|
Gabriel Cunningham(美国麻省理工学院),2005年2月4日
|
|
扩展
|
|
|
状态
|
经核准的
|