%I M2292#42 2023年8月5日06:26:29

%S 1,3,13,19,55,611391391811813914395596196198298591069，

%电话：1081145914891609174119512029234123413331333313961，

%电话：4189418942614801480159115911631963196319825182518251825182

%N最小奇数可以用至少N种方式表示为p+2*m^2，其中p是1或素数，m>=0。

%D N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

%H Donovan Johnson，<a href=“/A007697/b007697.txt”>n表，n=1..10000的a（n）</a>

%H G.H.Hardy和J.E.Littlewood，<a href=“https://doi.org/10.1007/BF02403921“>“Partitio numerorum”的一些问题；III:关于数字作为素数之和的表达，《数学学报》，第44卷，第1期（1923年），第1-70页。

%H L.Hodges，<a href=“https://www.jstor.org/stable/2690477“>一个鲜为人知的哥德巴赫猜想，《数学杂志》，66（1993），45-47。

%H M.Stern，<a href=“http://www.numdam.org/item/NAM_1856_1_15__23_0/“>《哥德巴赫相对标称损伤的断言》，《新纪年数学》，第15（1856）页，第23-24页。

%与哥德巴赫猜想相关的序列的索引条目</a>

%t最大值=9000；sp=外[Plus，前置[Prime/@Range[PrimePi[max]]，1]，2*Range[0，天花板[Sqrt[max/2]]^2]//平铺//排序//拆分；

%ta[1]=3；a[n_]：=（sel=Select[sp，Length[#]>=n&]；

%t如果[sel=={}，{}、sel[[1，1]]）；a/@范围[47]

%t（*Jean-François Alcover，2011年4月29日*）

%o（哈斯克尔）

%o导入数据。列表（findIndex）

%o导入数据。也许（来自Just）

%o a007697 n=2*（来自Just$findIndex（>=n）a046921_list）+1

%o——Reinhard Zumkeller，2013年4月3日

%Y参考A016067、A046921。

%K nonn，很好，很容易

%O 1,2号机组

%A _N.J.A.斯隆_

%E Stern和Hardy-Littlewood参考文献由Ctibor O.Zizka_提出，2008年4月14日

%E在R.J.Mathar的建议下，由N.J.A.Sloane_编辑，2008年5月15日_

%根据N·J·a·斯隆的建议，E a（1）改为1，2011年5月10日