%I#20 2022年6月19日18:30:27

%S 2,3,7,13,19,23,31,43,47,61,73,83,89103109113139151167181，

%电话：1931992292332412712832933317337349353359383389401，

%电话：409421433443449463467491503509523547571577601619643

%几何弱素数：小于相邻素数的几何平均数的素数（按惯例包括2）。

%C或者，坏素数（版本1）：素数不在A046869中_Jonathan Vos Post，2007年8月20日

%通过定义一个k阶几何弱素数为素数，该素数小于所有r=1到k的两边r个邻居的几何平均数，而对于r=k+1则不成立，这一思想可以得到扩展。可以为序列A051635定义类似的扩展。

%很容易证明，除了双素数对（3,5），每个双素数对中较大的素数都在这个序列中。这对中较小的素数总是在A046869中_T.D.Noe_，2008年2月19日

%H T.D.Noe，n的表格，n=1..10000的a（n）</a>

%F素数（k）^2<=素数（k-1）*素数（k+1）。

%e23属于这个序列，因为23^2=529<19*29=551。

%t连接[{2}，素数[Select[Range[2，120]，素数#]^2<=素数[#-1]*素数[#1]&]]（*_Stefan Steinerberger_2007年8月21日*）

%t Join[{2}，Transpose[Select[Partition[Prime[Range[500]]，3,1]，#[2]]<几何平均值[{#[[1]]，#[[3]]}&]][2]]]（*哈维·P·戴尔，2014年4月5日*）

%Y参见A051634、A051635、A006562、A000040、A046869。

%K容易，不是

%O 1,1号机组

%A _Amarnath Murthy，2002年3月8日

%E由_Stefan Steinerberger_修订和扩展，2007年8月21日

%E编辑：N.J.A.Sloane，2008年2月19日