%I#14 2019年8月18日02:33:00
%S 4,6,10,11,14,16,17,20,22,24,26,28,30,31,36,38,39,40,45,48,50,52,54,
%电话:56,57,59,62,65,66,67,70,73,74,76,79,81,84,85,87,90,91,94,95,96,97,99,
%电话:100104105106109110111114115116120122123124125126130134
%N对N进行编号,使N^2>(1/2)(前素数(N^2)+下素数(N ^2))。
%通过与A051634(强素数)的类比,可以将这些n^2称为“强平方”。
%e 4^2=16>(13+17)/2,所以4是一个项;
%e 5^2<(23+29)/2=26,所以5不是一个项;
%e 6^2=36>(31+37)/2,所以6是一个项,以此类推。
%p a:=proc(n)如果n ^2>(1/2)*(前素数(n ^2)+下素数(n^2)),则n其他fi结束:seq(a(n),n=2..150);#_Emeric Deutsch,2005年6月26日
%t prQ[n_]:=模块[{n2=n^2},n2>(NextPrime[n2]+NextPrime[n2,-1])/2];选择[范围[2150],prQ](*_哈维·P·戴尔,2012年2月19日*)
%Y参见A051634、A033597、A075190、A109269。互质(两个连续奇数素数的平均值)在A024675中。
%K nonn公司
%O 1,1号机组
%A _Zak Seidov,2005年6月24日
%E更多术语摘自德国电子报,2005年6月26日
|