1,1

大于2英寸的术语索引A225099型.

非平凡素数幂是p^k形式的数，其中p是素数，k>=2。那就是，A025475号第一学期除外A025475号(1) = 1.

似乎所有小于2^34的项都是偶数。

阿洛伊斯·海因茨，n=1..600时的n，a（n）表

isA025475not1:=进程（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）；

结束条件：；

结束do：#R.J.马塔尔2013年6月13日

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日*）

囊性纤维变性。A025475号,A225099型,A225102型,A225103型.

上下文中的序列：A276413型 A161020号 A102618号*A234985型 A264895型 A283359号

相邻序列：A225101型 A225102型 A225103型*A225105型 A225106型 A225107型

非n

亚历克斯·拉图什尼亚克2013年4月28日

经核准的