搜索: 编号:a225104
|
|
A225104型
|
| 可以用三种或多种方式表示为两个不同的非平凡素数幂之和的数字。 |
|
+0 2
|
|
|
370, 650, 2210, 3770, 5330, 6290, 7202, 10370, 10730, 11570, 12410, 12818, 13130, 14690, 15170, 15650, 16250, 16490, 18122, 18530, 19370, 19610, 21170, 22490, 24050, 24650, 25010, 26690, 28730, 29930, 30290, 30770, 31610, 32810, 33410, 34970, 36482, 36490
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
评论
|
似乎所有小于2^34的项都是偶数。
|
|
链接
|
|
|
MAPLE公司
|
isA025475不是1:=进程(n)
如果n<=1,则
假;
elif是素数(n)then
假;
elif nops(numtheory[factorset](n))=1,则
真;
其他的
虚假;
结束条件:;
结束进程:
A025475not1:=进程(n)
选项记忆;
局部a;
如果n=1,则
4;
其他的
对于来自procname(n-1)+1 do的a
如果是A025475而不是1(a),则
返回a;
结束条件:;
结束do:
结束条件:;
结束进程:
A225104w:=程序(n)
局部a,i,ppi,ppj;
a:=0;
因为我从一开始
ppi:=A025475not1(i);
如果ppi>=n/2,则
断裂;
结束条件:;
ppj:=n-ppi;
如果是A025475而不是1(ppj),则
a:=a+1;
结束条件:;
结束do:
a;
结束进程:
从1到n do
如果A225104w(n)>=3,则
打印(n);
结束条件:;
|
|
数学
|
nn=36490;p=排序[Flatten[Table[Prime[n]^i,{n,PrimePi[Sqrt[nn]]},{i,2,Log[Prime[n],nn]}]];转置[Sort[Select[Tally[Flatten[Table[p[i]]+p[[j]],{i,Length[p]-1},{j,i+1,Length[p]}]],#[1]]<=nn&#[2]]>2&]]][[1](*T.D.诺伊2013年4月29日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.004秒内完成
|