%I#24 2023年11月2日02:22:36

%S 1,1,3,3,3,13,5,5,3,3，13,3,5,1,3,7,9,5,7,15,7,3,9,3,6,7,13,11,3，

%电话：3,7,9,13,3,23,13,15,7,13,5,21,11,9,9,12,9,3,3,11,9,17,15，

%U 5,7,9,7,7,21,19,7,11,43,35,11,25,11,5,7,17,9

%N将双素数对的第N个平均值表示为上下双素数的算术平均值的方法。

%C将2*A014574（n）写成A001359元素加上A006512元素之和的方法数量。

%H Robert Israel，<a href=“/A190268/b190268.txt”>n，a（n）表，n=1..5000</a>

%e a（7）=5，因为第7个平均值是A014574（7）=60，这等于对（11109）、（17103）、（59,61）、（101,19）和（107,13）的五个平均值_R.J.Mathar，2011年6月3日

%p是A001359:=过程（n）是素数（n）和是素数；结束进程：

%p A001359:=程序（n）选项记忆；局部a；如果n=1，则为3；如果isA001359（a），则返回a；结束条件：；end do：结束if；结束进程：

%p是A006512:=过程（n）是素（n）和是素（n-2）；结束进程：

%p A190268:=进程（n）本地a，avn，lowtp，uptp，k；a:=0；平均值：=A014574（n）；对于1中的k，do lowtp:=A001359（k）；uptp:=2*avn-lowtp；如果uptp<=0，则中断；结束条件：；如果是A006512（uptp），则a：=a+1；结束条件：；结束do:a；结束进程：

%p序列（A190268（n），n=1..80）；#_R.J.Mathar，2011年5月26日

%Y参考A001359、A006512、A014574、A178670。

%K nonn公司

%氧1,3

%A _Juri-Stepan Gerasimov，2011年5月6日