%I#21 2022年9月8日08:44:50
%S 11,14,14,16,18,18,20,22,20,18,22,22,2024,24,24,20,20,22,22,26,28,24,24,
%电话:20,16,26,28,30,30,36,24,26,26,24,28,24,24,28,26,24:20,30,32,34,32,34,
%U 28,18,24,28,30,30,20,26,24,20,24,36,34,32,34,38,30,36,36,36
%N a(N)=素数(N+5)-素数(N)。
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%p序列(ithprime(n+5)-ithprime(n),n=1..30);
%t a=5;t=数组[Prime,123];Drop[t,a]-Drop[t,-a](*_Vladimir Joseph Stephan Orlovsky_,2009年8月13日*)
%t最后[#]-第一[#]和/@分区[Prime[Range[80]],6,1](*哈维·P·戴尔,2014年7月11日*)
%o(PARI)A031167(n)=素数(n+5)-素数(n)
%o(岩浆)【NthPrime(n+5)-NthPrice(n):n in[1..100]];//_文森佐·利班迪(Vincenzo Librandi),2011年4月23日
%o(哈斯克尔)
%o a031167 n=a031167_列表!!(n-1)
%o a031167_list=zipWith(-)(删除5 a000040_list)a000040 _list
%o——Reinhard Zumkeller,2015年8月23日
%Y请参阅A000040、A001223、A031131、A031165、A031.166、A03.1168、A03169、A031170、A031171和A031172。
%K nonn公司
%O 1,1号机组
%杰夫·伯奇(_Jeff Burch)_
%E首字母由_Michael B.Porter添加,2010年1月27日
|