%I#38 2022年9月8日08:46:10

%S 4,6,10,25,28,32,98124146164182190200220226230248280362，

%电话：376418446518544

%N数N，使得3^N-N是一个半素数。

%C序列中是否有25个以外的奇数成员？没有其他人<10000。当（3^m-m）/2是素数时，序列中有一个奇数m_罗伯特·伊斯雷尔，2015年1月2日

%C对于m<200000，在a（4）=25之后没有更多的奇数项。a（25）>=626.-_Hugo Pfoertner，2019年8月7日

%H factordb.com，<a href=“http://factordb.com/index.php？查询=3%5E626-626“>3^626-626的状态。

%e4在这个序列中，因为3^4-4=7*11是半素数。

%e10是这个序列，因为3^10-10=43*1373，这两个因子是素数。

%p选择（n->numtheory:-bigomega（3^n-n）=2，[$1..150]）；#_罗伯特·伊斯雷尔，2015年1月2日

%t选择[范围[150]，PrimeOmega[3^#-#]==2&]

%o（Magma）IsSemiprime:=func<i|&+[d[2]：d在因式分解（i）]eq 2>中；[2..150]|IsSemiprime中的[m:m，其中s是3^m-m]；

%o（PARI）is（m）=bigomega（3^m-m）==2\\费利克斯·福莱希，2014年12月30日

%o（PARI）n=1；而（n<100，s=3^n-n；c=0；对于素数（p=1,10^4，如果（s%p，c++））；如果（s%p==0，s1=s/p；如果（ispseudoprime（s1），打印1（n，“，”）；c=0；断裂）；如果（！ispseudoprime（s1），c=0；断裂）；如果（！c，n++）；如果（c，如果（bigomega（s）==2，打印1（n，“，”））；n++））\\_Derek Orr_，2015年1月2日

%Y参考数字m，使得k^m-m是一个半素数：A165767（k=2），这个序列（k=3），A252657（k=4），A25.2658（k=5），A252 659（k=6），A2152660（k=7），A2520661（k=8），A25 2662（k=9），A2 52663（k=10）。

%Y参见A001358（半素数）、A058037、A252788。

%K nonn，更多，难

%O 1,1号机组

%A _文森佐图书馆_，2014年12月20日

%E a（10）摘自Friex Fröhlich，2014年12月30日

%E a（11）-a（14）摘自2015年1月2日_Charles R Greathouse IV_

%E a（15）-a（24），2015年8月21日，卢克三月