%I#5 2019年2月26日23:03:19
%S 10,14,16,18,19,20,21,22,24,27,28,30,33,34,36,37,38,39,40,41,42,43,44,
%电话:45,46,47,48,49,50,51,52,54,66,68,69,70,72,73,74,75,76,78,79,81,82,84,
%U 85,86,87,88,89,90,92,93,94,95,96,97,98,99100102103104105107108109单位
%N个数是两个反向素数以多种方式之和。
%C A162706的后续_R.J.Mathar,2009年7月13日
%e 14=R(7)+R(7。
%e 28=R(11)+R(71)=11+17=R(41)+R。
%e 33=2+31=R(2)+R(13)=16+17=R(61)+R。
%e 36=R(2)+R(43)=2+34=R(5)+R。
%p读取(“转换”);A055642:=程序(n)最大值(1,ilog10(n)+1);结束时间:
%p A004087:=程序(n)选项记忆;数字(ithprime(n));结束时间:
%p isA162708:=程序(n)c:=0;对于来自1的i,do p:=ithprime(i);如果A055642(p)>A055641(n),则断开;fi;对于从1到i的j,如果A004087(i)+A004088(j)=n,则c:=c+1;fi;od:od:返回(c>1);结束时间:
%p表示n从1到200 do,如果是A162708(n),则打印f(“%d,”,n);fi;od:#R.J.Mathar_,2009年7月13日
%K nonn,基础
%O 1,1号机组
%A _克劳迪奥·梅勒,2009年7月11日
%E由R.J.Mathar_插入的缺失术语14、33等,2009年7月13日