%I#11 2024年8月5日18:36:18

%S 2,3,7,5,11,7,29,17,19,11,23,13,53,29,31,17137,191217,41,43,23,47，

%电话：97101,53109,29,39,317937257,67137,71,371491217,79,41,83,43，

%U 173,89181,47

%N形式为N*2^m+1，m>=0的最小素数，如果不存在这样的素数，则为0。

%C源于A040076的素数（如果不存在这种素数，则为0）。

%C或：从x=n+1开始，通过迭代映射x->2*x-1创建的第一个素数_凯文·施瓦茨和克里斯蒂安·安德森，2013年5月13日

%H R.J.Mathar，n表，n=1..382的a（n）</a>

%p A050921:=程序（n）

%p代表0 do中的m

%p如果是素数（n*2^m+1），则

%p返回n*2^m+1；

%p end if；

%p端do；

%p结束进程；#_R.J.Mathar，2013年6月1日

%t Do[m=0；While[！PrimeQ[n*2^m+1]，m++]；打印[n*2^m+1]，{n，1，47}]

%Y参考A040076、A034694、A038699。

%不，简单，好

%O 1,1号机组

%A.N.J.A.Sloane_，1999年12月30日

%E下一项（47*2^583+1）太大，无法显示。