%I#15 2019年7月8日12:00:25

%电话：82389500824745832213107960219821194422585696160258120048562，

%电话：6024258979221053022816562126724776984234919985787227181161893362，

%电话7759350084722107565698378421694837981928228424689653362331223385504023656235111576250897394646082

%N表示p^4+1形式的N（对于素数p），这样N^4+1也是素数。

%C所有数字与2模20一致。

%e 10756569837842=1811^4+1（1811是素数），10756569837842^4+1是素数，因此10756569837842是该序列的一员。

%t nfp4Q[n_]：=模块[{p=Surd[n-1,4]}，AllTrue[{p，n^4+1}，PrimeQ]]；选择[Range[2700]^4+1，nfp4Q]（*程序使用Mathematica版本10中的AllTrue函数*）（*Harvey P.Dale_，2019年7月8日*）

%o（Python）

%o进口症状

%o来自sympy import isprime

%o{为范围（10000）中的n打印（n**4+1）if为isprime（n）if是isprime

%Y参考A002523、A000068。

%K nonn公司

%O 1,1号机组

%2014年1月17日，A _Derek Orr_