PSP2:forodd复合物{假设is_pseudoprime（$_，2）}1e10 SPSP2:foroddcomposites{say if is_strong_pseudoprime（$_，2）}1e10 LPSP：foroddcomposites{say if is _ lucas_ pseudo prime（$_）}1e10 SLPSP：foroddcomposites{say if is _strong _ lucas_ pseudo-prime（$_）}1e10 AESLPSP：foroddcomposites{say if is_almost_extra_strong_lucas_pseudo-prime（$_）}1e10 相似：foroddcomposites{say if is_almost_extra_strong_lucas_pseudo-prime（$_，2）}1e10 ESLPSP：foroddcomposites{say if is_extra_strong_lucas_pseudo-prime（$_）}1e10 弗罗贝纽斯 ：foroddcomposites{say if is_frobenius_pseudoprime（$，1，-1）}1e10 斐波那契：foroddcomposites{$e=（0，-1,1,1，-1）[$_%5]；假设$e==0||（lucas_sequence（$_，1，-1，$_+$e））[0]}1e10 甚至斐波那契 ：对于（2..1e10）{my$n=$_<<1；$e=（0，-1,1,1，-1）[$n%5]；说$n除非！$e||（lucas_sequence（$n，1，-1，$n+$e））[0]} 布鲁克曼：foroddcomposites{say if（lucas_sequence（$_，1，-1，$_））[1]==1}1e10 佩尔：foroddcomposites{say except（（lucas_sequence（$_，2，-1，$_））[0]-kronecker（2，$_））%$_；}1e10 佩林 ：对于复合{假设is_perrin_pseudoprime（$_）}1e10 限制性佩林 ：对于复合{假设is_perrin_pseudoprime（$，1）}1e10 加泰罗尼亚语 ：对于复合{假设is_catalan_pseudoprime（$_）}1e10 Frobenius（P，2）：foroddcomposites{say if is_Frobenius_pseudoprime（$_）；}1e10 FK:foroddcomposites{say if is_frobenius_khashin_pseudoprime（$_）；}1e10 FU：foroddcomposites{say if is _ robenius _ underwood _ pseudo prime（$_）；}1e10 BPSW:foroddcomposites{say if is_BPSW_prime（$_）；}1e10 弗罗贝纽斯 ：foroddcomposites{$k=kronecker（5，$_）；（$U，$V）=lucas_sequence（$_，1，-1，$_-$k）；假设$U==0&$V==（（$k==1）？2:$_-2）}1e10 佩林 ：使用数学：：GMPz； {my$l=2；my@A=map{Math:：GMPz->new（$_）}（3,0,2）； sub-perrin{my$n=shift；如果$n<=2，则返回0；如果$n<$l，则死亡；而（$n>$l）{@A=（$A[1]，$A[2]，$A[0]+$A[1]）；对于复合{say除非perrin（$_）%$_}1e10，否则返回$A[-1]} 加泰罗尼亚语 ：使用数学：：GMPz； {my（$c，$l）=（数学：：GMPz->new（1），1）；子加泰罗尼亚语{while（$_[0]>$l）{$l++；$c*=4*$l-2；数学：：GMPz:：Rmpz_divexact_ui（$c，$c，$1+1）；}$c；}} foroddcomposites{$m=（$_-1）>>1；假设（catalan（$m）%$）==（（$m&1）？$_-2:2）；}1e10 加泰罗尼亚语（alt）：foroddcomposites{$m=（$_-1）>>1；假设（二项式（$m<<1，$m）%$_）==（（$m&1）？$_-1:1）；}1e10