%I#10 2013年5月6日04:14:25

%第12,15,38,391181521902584626907461361632211933704522页，

%电话：4600752015006242233156340385137252342646383877747090790，

%电话：101946104670156772166822167700175818194092200022229630246208328462362440372882

%N数N，使素数（N）-N是素数幂。

%H Donovan Johnson，n的表，n=1..1000的a（n）</a>

%F素数（n）-n=q^k，q是素数，k_Integer>=2。

%e 690是正常的，因为素数（690）-690=5179-690=4489=67^2，67是素数。

%t lst={}；fQ[n_]：=块[{pf=FactorInteger[n]}，（2-长度[pf]）（pf[[1，2]]-1）>0]；执行[If[fQ[Prime[n]-n]，打印[n]；附加到[lst，n]]，{n，3，362439}]；第一次

%Y Cf.A025475=素数但非素数的幂，也是非素数n的幂，使得sigma（n）*phi（n）>（n-1）2；A107712=q值，A107713=k值；A107714=质数值（A109315（n））。

%Y参考A083240。

%K nonn公司

%O 1,1号机组

%2005年5月22日，A_Zak Seidov和_Robert G.Wilson诉